Các bạn giải dùm mình bài toán này nhé

[nghia1991]

Viết chương trình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện mỗi chữ cái Tiếng Anh trong S (không phân biệt chữ hoa hay chữ thường).

[chungkid1]

Bài này đã có trong forum,bạn nên search trước khi post bài hỏi,tránh việc lập topic dư thừa



Var
st:String;
a:array['A'..'z']of byte;
i:integer;
j:char;
Begin
readln(st);
for i:=1 to length(st) do
inc(a[st[i]]);
for j:='A' to 'z' do
if a[j]>0 then write('Chu cai',j,xuat hien',a[j],lan);
Readln;
End.