bài 1 nhâp vào 1 xâu kiêm tra tính bài 1 nhâp vào 1 xâu kiêm tra tính đối xứng của xâu program dx var im integer s string begin writelnnhap chuoi s readlns m lengths div 2 for i 1 to

đếm số lần xuất hiện các chữ cái trong xâu.[r]

Bài 1: nhâp vào xâu kiêm tra tính đối xứng xâu program dx;

var i,m:integer; s:string; begin

writeln('nhap chuoi s'); readln(s);

m:=length(s) div 2; for i:= to m-1

if s[1+i] <> s[length(s)-i] then begin

writeln('chuoi s khong doi xung'); exit;

end;

writeln('chuoi s doi xung'); readln;

readln; end

Bài 2: Nhập vào xâu đếm số lần xuất chữ xâu Không phân biệt chữ hoa chữ thuờng

program dem so ki tu; var

st:string;

dem:array['A' 'Z']of byte; i:byte;

ch: char; begin

write('nhap xau'); readln(st); for ch:='A' to 'Z' dem[ch]:=0; for i:=1 to length(st)

if upcase(st[i]) in ['A' 'Z'] then dem[upcase(st[i])]:=dem[upcase(st[i])]+1; for ch:='A' to 'Z'

if dem[ch]>0 then writeln(ch,':','', dem[ch]); readln;

end

Bài 3: Viết chương trình đêm số chữ số số nguyên cho trước program demso;

var

n,d, i: integer; begin

write('nhap so'); read(n); d:=0;

repeat n:=n div 10; d:=d+1; until n=0;

write('so chu so la', d); readln;