Ромогите очень надо Задано двухзначное число . Найдите разность между количеством...

Question

Ромогите очень надо
Задано двухзначное число . Найдите разность между количеством десятков и единиц

Answer 1

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger('Введите двухзначное число:'));
  Writeln('Разность между числом десяток и единиц равна ',
    n div 10 - n mod 10)
end.

Пример
Введите двухзначное число: 45
Разность между числом десяток и единиц равна -1

Answer 2

Var n,m: integer;
begin
  write('n = '); readln(n);
  m:=abs((n mod 10) - (n div 10) mod 10);
  writeln(m);
end.

n = 138
5