Question

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

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

160 175 170 171 172 173 174 175
Pascal abc

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.

Answer 2

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

Answer 3

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.

Answer 4

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

Answer 5

var
a,b,i:longint;
begin
readln(a,b);
i:=a;
while i<=b do
begin
if (i mod 100) div 10 =7 then write(i,' ');
i:=i+1;
end;
end.