Giải bài:Nhập vào một chuỗi viết ra số lần xuất hiện của các kí tự có trong chuỗi(chú ý có sử dụng upcase).

VAR
a:array['A'..'z'] of integer;
st:string;
j:longint;
i:char;
BEGIN


Write('Nhap vao 1 chuoi bat ki:');Readln(st);
For j:=1 to length(st) do
st[j]:=upcase(st[j]);{su dung upcase de cho cac kis tu cua chuoi thanh ki tu hoa}
For j:=1 to length(st) do
For i:='A' to 'z' do
If i=st[j] then a[i]:=a[i]+1;
For j:=1 to length(st) do
Begin
If a[st[j]]>=1 then
Begin
Writeln(st[j],' co:',a[st[j]]);
a[st[j]]:=0;
end;
end;
Readln;
END.



Bài làm ko tránh khỏi sai xót mong mọi người góp ý chân thành

Có "sai sót", admin ạ.
Chính tả í mà. Lưu ý nghe: sai sót. "Xót" là đau xót,...

Bắt bẻ admin ha~
có chữ thanks to tướng nhưng mà ko thanks mô
ai biểu bắt bẻ admin

Vừa phải nhá, hứ, sai chính tả, ít ai rảnh mà sửa cho đâu nghe, còn bày đặt "lẫy" ko thèm thanks nữa chớ .
Admin đáng ghét!