Помогите решить задачу по информатике)) Используя жесткий цикл , выведите ** экран все...

Question

Помогите решить задачу по информатике)) Используя жесткий цикл , выведите на экран все числа от 20 до 99, не оканчивающиеся на 7

Answer 1

program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.