На інтервалі від N до K обрати ті числа, що містять рівно 3 однакові цифри. Приклад: 6766, 5444, 1161, 6

// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)begin  for var i := ReadInteger('n->') to ReadInteger('k->') do    if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0       then i.Println;end.Пример:k-> 1170n-> 11111112 1113 1114 1115 1116 1117 1118 1119 1121 1131 1141 1151 1161