Пожаловаться
- 12.08.2018 12:08
- Информатика
- remove_red_eye 1418
- thumb_up 17
Ответы и объяснения 1
Бывают же задачки, которые так приятно решить в виде одной конструкции языка! )))
// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger).Select(x->x.ToString).JoinIntoString('')
.GroupBy(x->x).Select(x->(x.Key,x.Count))
.OrderBy(x->x[1]).ThenByDescending(x->x[0]).Select(x->x[0]).Println(' ')
end.
Пример
3
456
20
3452
6 3 0 5 4 2
можно также ввести все в одной строке
3 456 20 3452
6 3 0 5 4 2
// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger).Select(x->x.ToString).JoinIntoString('')
.GroupBy(x->x).Select(x->(x.Key,x.Count))
.OrderBy(x->x[1]).ThenByDescending(x->x[0]).Select(x->x[0]).Println(' ')
end.
Пример
3
456
20
3452
6 3 0 5 4 2
можно также ввести все в одной строке
3 456 20 3452
6 3 0 5 4 2
Пожаловаться
- 13.08.2018 21:26
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы