На вход программы подаются строчные английские буквы. Ввод этих букв заканчивается точкой (другие символы, отличные от «.» и букв «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.