Question

Дано двузначное число. Найти модуль разности его цифр. По ПАСКАЛЮ НАПИШИТЕ РЕШЕНИЕ.

Answer 1

не знаю синтаксис паскаля, но думаю сможешь перевезти:

n,a as integer

a:=(n mod 10) - (n div 10);

if a<0 then 

a:=a*-1;

write(a);

end.