uses Crt;

var st:String;

d:array['A'..'Z'] of byte;

i:Byte;

ch:Char;

f1,f2:text;

begin

assign(f1,'vao.tep'); reset(f1);

assign(f2,'ra.tep'); rewrite(f2);

readln(f1,st);

for ch:='A' to 'Z' do d[ch]:=0;

for i:=1 To length(St) Do

if upcase(St[i]) in ['A'..'Z'] then inc(d[upcase(st[i])]);

for ch:='A' To 'Z' Do if d[ch]>0 Then Writeln(f2,ch,' : ',d[ch]);

close(f1);

close(f2);

readln;

end.

Giải thích: Đề yêu cầu là nhập dữ liệu từ tệp f1(vao.tep), sau đó kiểm tra(hay lấy xâu) f2 và đếm số lần xuất hiện của mỗi chữ cái(cả thường lẫn hoa),

Vd: Aaabc

→Thì sẽ in ra đáp án theo code trên là:

A: 3

B: 1

C: 1

Vì không biệt chữ Hoa và chữ thường nên A có số lượng là 3, B có số lượng là 1, C có số lượng là 1.

- Cách in ra số lượng của mỗi chữ cái mình in ra là chữ in hoa, đây chỉ là cách in các số thành chữ in hoa cho trông dễ nhìn hơn,nhưng kết quả không thay đổi.