На нтервал вд N до K обрати т числа, що мстять

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

Задать свой вопрос
1 ответ
// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
  for var i := ReadInteger('n-gt;') to ReadInteger('k-gt;') do
    if i.ToString.OrderBy(t -gt; t).AdjacentGroup.Where(t -gt; t.Count = 3).Count gt; 0 
      then i.Println;
end.

Пример:
k-gt; 1170
n-gt; 1111
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1121 
1131 
1141 
1151 
1161 

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт