Дано двузначное натуральное число.Верно ли что квадрат суммы его цифр больше самого числа.Помогите решить в Pascal
program qq;
uses crt;
var a,x,y:byte;
begin
clrscr;
readln(n)
x:=trunc(a/10);
y:=mod(a);
if sqr(x+y)>a then writeln(верно) else writeln(неверно);
readln
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
