Question

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

Answer 1

var
n:integer;
begin
Read(n);
Writeln(n div 10 - n mod 10)
end.