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

Question

Информатика

Дроня

17 января, 11:15

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

+3

Ответы (1)

Знаете ответ?

Галька · 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.