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

Question

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

Answer 1

// 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