var s,s1:string;
i,j,count:integer;
begin
read(s);
for i:=length(s) downto 2 do
for j:=2 to i do
if s[j]<s[j-1] then begin
swap(s[j],s[j-1]);
s1:=s;
end;
//сортируем строку в алфавитном порядке чтобы потом было легче
//считать количество встреч одного и того же символа
count:=1;
write(s1[1],': ');
//первый символ в любом случае встречается один раз
for i:=2 to length(s1) do
if s1[i]=s1[i-1] then inc(count) else begin
writeln(count);
write(s1[i],': ');
count:=1
end;
//считаем количество совпадений для каждого символа
writeln(count);
end.
Такие задания в принципе не решаемые, потому, что не указан критерий отбора, значит этот критерий я выбираю САМ, и он может отличаться от того, который имели в виду авторы задачи, поэтому и мой ответ может отличаться от их ответа, но это совсем не означает, что он неправильный.
Ну вот например, со второй группой слов.
Поставим каждому слову в соответствие количество букв в нём.
Дебри - 5
Прения - 6
Игры - 4
Шахматы - 7
И я смело могу утверждать, что лишним является Игры, потому, что это единственное, у которого число букв - полный квадрат.
Но я также могу утверждать, что лишнее это Прения, потому, что это единственное чётное не квадрат,
Но я могу сказать, что лишнее Шахматы, потому что это единственное с количеством букв, равным максимальному простому числу в первом десятке
И т д...
И все мои ответы правильные и уверен на 100%, что не совпадают с мнением авторов задачи.
Поэтому, повторюсь, если чётко не указан критерий сравнения, ответ также нечёткий.
Поделитесь своими знаниями, ответьте на вопрос:
2) в IX веке
3) около XIII века до н. э.
4)1972 г
5)примерно в 4 тысячелетии до н. э.
6) около 1553 г
7) 1956г
8) 1898 г
9) 1839 г
10) 21 ноября 1877
11) 1895 г