Пользователь вводит текст. Выяснить, сколько раз встречается каждая буква в предложенном тексте.

Question

Информатика

Меля

23 октября, 08:30

Пользователь вводит текст. Выяснить, сколько раз встречается каждая буква в предложенном тексте.

+5

Ответы (1)

Знаете ответ на вопрос?

Алека · Answer 1

Var s:string;

a:array[1 ... 26] of integer;

i:integer;

begin

readln (s) ;

for i:=1 to length (s) do begin

if (s[i] in ['a' ... 'z']) then inc (a[ord (s[i]) - ord ('a') + 1]) ;

if (s[i] in ['A' ... 'Z']) then inc (a[ord (s[i]) - ord ('A') + 1]) ;

end;

for i:=1 to 26 do

write (a[i],' ') ;

end.