Используя операции div и mod решите следующую задачу: Требуется найти разность между...

Question

Используя операции div и
mod
решите следующую задачу:

Требуется найти разность между трехзначным числом и
числом, составленным из тех же цифр, но взятых в обратном порядке.

Answer 1

Var
  a, b: integer;

begin
  readln(a);
  b := (a mod 10) * 100 + (a mod 100 div 10) * 10 + (a div 100);
  writeln(a, ' - ', b, ' = ', a - b);
end.