Назовем число клевым, если его предпоследняя цифра равна 7. По данным двум числам а и b выведите все клевые числа от a до b в порядке возрастания.

Ввод Вывод

70 72 70 71 72

Ввод Вывод

160 175 170 171 172 173 174 175

Pascal abc

Question

Регина

22 января, 16:46

+1

Ответы (1)

Знаете ответ на вопрос?

Хариесса · Answer 1

Var

a, b, i:integer;

begin

readln (a, b) ;

for i:=a to b do

if (i mod 100) div 10 = 7 then write (i,' ') ;

end.