Пользователь вводит текст. Выяснить, сколько раз встречается каждая буква в предложенном тексте.
Пользователь вводит текст. Выяснить, сколько раз встречается каждая буква в предложенном тексте.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы