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

Question

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

Answer 1

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

Comments

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