СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 27 № 3123

На вход в программу подается текст, состоящий из прописных букв русского и английского алфавита. между словами ставится один пробел, ввод текста заканчивается точкой. (Другие символы, отличные от "." и букв "А"..."Я" и "А"..."Z", на вход программы не поступают.)

Требуется написать программу, которая будет проводить частотный анализ текста и последовательно выводить на экран только букву и число, равное количеству повторений этой буквы. Вначале необходимо вывести данные об английском, затем о русском алфавите. Буквы, не встречающиеся в тексте ни разу, выводиться не должны.

Решение.

program letters;

var A: array ['A'..'Z'] of integer;

var B: array ['А'..'Я'] of integer;

s: char;

begin

read(s);

while s <> '.' do

begin

if s in ['A'..'Z'] then a[s]:=a[s]+1;

if s in ['А'..'Я'] then b[s]:=b[s]+1;

read(s)

end;

for s:= 'A' to 'Z' do if a[s]>0 then writeln (s,' ',a[s]);

for s:= 'А' to 'Я' do if b[s]>0 then writeln (s,' ',b[s])

end.