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

но тогда в каком случае вообще возможен ответ NO

Answer 3

Я вообще не смог придумать случай, когда будет NO )))

Answer 4

понятно, спасибо)))

Answer 5

Это олимпиады - из из года в год с одними и теми же кривыми условиями переписывают

Answer 6

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