<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadInteger.ToString.GroupBy(c->c).Select(c->(c.Key,c.Count)).
Where(t->t[1]>1).Select(t->t[0]).Println(',')
end.
<u>Пример</u>
765645656
6,5
меняем строку for var... на
for var n:=k to 1 do
будет выводить значение от большего до двух
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
1-2-4-3-5 хотя сто процентов гарантировать не могу, путано оно немного
Свойство алгоритма "конечность" по другому называется результативность и оно обозначает, что в результате выполнения заданных исполнителю шагов алгоритма мы получим результат.
Например, чтобы получить бутерброд с сыром и маслом (исходные продукты все есть), нужно проделать ряд действий:
1) взять кусочек хлеба
2)намазать хлеб маслом
3)отрезать кусочек сыра
4)положить сыр на бутерброд