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

70 72 70 71 72
Ввод Вывод

160 175 170 171 172 173 174 175
Pascal abc

а можешь попробовать с циклом while?

vara,b,i:integer;beginreadln(a,b);for i:=a to b do if (i mod 100) div 10 = 7 then write(i,' ');end.

https://znanija.com/task/21890513 а это сможешь:? на странице лайк поставлю и огромное спасибо

vara,b,i:longint;beginreadln(a,b);i:=a;while i<=b do beginif (i mod 100) div 10 =7 then write(i,' ');i:=i+1;end;end.

vara,b,i:integer;beginreadln(a,b);for i:=a to b do if (i mod 100) div 10 = 7 then write(i,' ');end.