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

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

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

160 175 170 171 172 173 174 175
Pascal abc

Задать свой вопрос
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.

Костик Калатин
а можешь пробовать с циклом while?
Shurik Auhadeev
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт