Question

вычислить значение логического выражения x2+y2<=4 при X=1, Y=1. программу выполнить в паскаль абц

Answer 1

Program log;
Var x,y,s:integer;
Begin
x:=1;
y:=1;
s:=sqr(x)+sqr(y);
if s<=4
than writeln("4 равен или больше чем сумма квадратов x и y")
else writeln("4 меньше суммы квадратов x и y)
end;
end.
Писал с планшета так что если найдешь ошибки извиняй)

Answer 2

огромное спасибо