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

1

Ответы и объяснения

2014-02-15T21:43:48+04:00
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.
Писал с планшета так что если найдешь ошибки извиняй)