Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры

Вопрос школьника по предмету Информатика

Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017

// Внимание! Если программа не работает, обновите версию!

begin

  Range(1,ReadInteger(‘K=’)).Where(n->Pos(‘7’,n.ToString)>0).Println

end.

Пример

K= 80

7 17 27 37 47 57 67 70 71 72 73 74 75 76 77 78 79