Составить программу позволяющую выяснить сколько раз встречается каждая буква алфавита во...

Question

Составить программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введённой строке s.

Comments

заглавные буквы или строчные?

---

строчные

Answer 1

Program gt;
var a:string;
p,i,l:longint;
b:array[1..200]of longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
p:=ord(a[i]);
b[p]:=b[p]+1;
end;
for i:=97 to 122 do
begin
write(b[i],' ');
end;
end.