Назовем число клевым, если его предпоследняя цифра равна 7. По данным двум числам а и b выведите все клевые числа от a до b в порядке возрастания.
Ввод Вывод
70 72 70 71 72
Ввод Вывод
160 175 170 171 172 173 174 175
Pascal abc
Ввод Вывод
70 72 70 71 72
Ввод Вывод
160 175 170 171 172 173 174 175
Pascal abc
More Questions From This User See All
Answers & Comments
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.
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.
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.