Question

Напишите программу, условие задачи в приложении

Answer 1

var a:integer;

begin

readln (a);

if a div 10 = a mod 10 then write ('NO') else

if a div 10 > a mod 10 then write ((a div 10 + a div 10*10)-a)

else write ((a mod 10 + a mod 10*10)-a);

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger;

 var m := Max(n div 10, n mod 10);

 m *= 11;

 if m < n then Println('NO')

 else Println(m - n)

end.

13

20