Question

ПОМОГИТЕ ПО PASCAL!!! ПОЖАЛУЙСТА!!! ОЧЕНЬ КОРОТКО! Вывести все двухзначные числа, разность по модулю цифр которых равна 3

Answer 1

Программа:

var i: integer;

begin

for i:=10 to 99 do

if abs(i div 10 - i mod 10) = 3 then write(i,' ');

end.

Результат:

14 25 30 36 41 47 52 58 63 69 74 85 96