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


Задания
Версия для печати и копирования в MS Word
Задания Д19 C4 № 3110

На вход программы подаются строчные английские буквы. Ввод этих букв заканчивается точкой (другие символы, отличные от «.» и букв «a».. «z» во входных данных отсутствуют. Требуется написать программу на одном из языков программирования, которая будет печатать буквы, встречающиеся во входной последовательности, в порядке увеличения частоты их встречаемости. Каждая буква должна быть распечатана один раз. Точка при этом не учитывается. Если какие-то буквы встречаются одинаковое число раз, то они выдаются в алфавитном порядке. Например, пусть на вход подаются следующие символы:

colaclc

В данном случае программа должна вывести:

аolc

Решение.

var

a:array['a'..'z'] of integer;

ch,c:char;

i,k:integer;

Begin

for ch:='a' to 'z' do a[ch]:=0;

k:=0;

read (c);

while c<>'.' do

begin

if c in ['a' .. 'z'] then a[c]:=a[c]+1;

k:=k+1;

read (c);

end;

for i:=1 to k do begin

for ch:='a' to 'z' do

if a[ch]=i then write(ch);

end;

end.