Нужно натиском все цифры числа а затем сравнивать в цикле 1 с последним затем второе с предпоследний и так далее...
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Число -10 не больше или равно двум, не лежит в пределах от 1 до 4, Не равняется 2, 10, -4, 3, 7, при умножении на себя не даёт число, меньшее нулю. Значит, что программа выведет: "дерево"
что это такое? ооо и оон?м?)