На вход в программу подается текст, состоящий из прописных букв русского и английского алфавита. между словами ставится один пробел, ввод текста заканчивается точкой. (Другие символы, отличные от "." и букв "А"..."Я" и "А"..."Z", на вход программы не поступают.)
Требуется написать программу, которая будет проводить частотный анализ текста и последовательно выводить на экран только букву и число, равное количеству повторений этой буквы. Вначале необходимо вывести данные об английском, затем о русском алфавите. Буквы, не встречающиеся в тексте ни разу, выводиться не должны.
program letters;
var A: array ['A'..'Z'] of integer;
var B: array ['А'..'Я'] of integer;
s: char;
begin
for s:= 'A' to 'Z' do a[s] := 0;
for s:= 'А' to 'Я' do b[s] := 0;
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.