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 1 xâu kiêm tra tính đối xứng của xâu

program dx;

var i,m:integer;

s:string;

begin

writeln('nhap chuoi s');

readln(s);

m:=length(s) div 2;

for i:= 1 to m-1 do

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 hiện các chữ cái trong 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' do dem[ch]:=0;

for i:=1 to length(st) do

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

for ch:='A' to 'Z' do

if dem[ch]>0 then

writeln(ch,':','', dem[ch]);

readln;

end

Bài 3: Viết chương trình đêm số chữ số của 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;

readln;

end