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

Question

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

---

Answer 1

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

Answer 2

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.

Comments

спасибо большое, все работает

---

вы не могли бы подумать еще над этой задачей, если сможете https://znanija.com/task/30194711 заранее спасибо!

---

Вопрос: почему для двух одинаковых цифр у Вас выдается NO? По условию увеличивать можно на любое НЕОТРИЦАТЕЛЬНОЕ число. В данном случае увеличить надо на ноль, а ноль число не отрицательное, значит ответ 0.

---

спасибо за поправку

---

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

---

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

---

Ну что же, обычное дело: кривое условие. Не впервой)))

---

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

---

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