Program n1;
var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.
Похоже на то, что ящик ждет на вход только число и выводит 1. если оно нечетное и 0 - если четное. Если на вход задано не число, то ящик выводит "Не могу".
В пустой строке 0.
¬(x ^ y)v x=¬Yv¬XvX=¬Yv1 = 0
¬x ^ x ^ (x v y)=¬x ^x = 0
Надоело при копировании из блокнота вручную ставить пробелы. Бред.