Question

Найти все двузначные числа ,в которых число десятков на 3 больше числа единиц.Срочно!!!Пожалуйста!

Answer 1

Var i: integer;
begin
for i:=10 to 99 do
begin
if (i div 10 - i mod 10 > 3 ) then
print(i);
end
end.