Gavinraris
6 год назад
Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры
ОТВЕТЫ
Tihon
Oct 24, 2020
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
446
Смежные вопросы:
