Вычислить значение логического выражения x2+y2<=4 при x=1 y=-1 паскаль(нужна программа)

Question

Вычислить значение логического выражения x2+y2<=4 при x=1 y=-1 паскаль(нужна программа)

Comments

там 2*x+2*y<=4 или как?

Answer 1

Program log1;
Var x,y,s:integer;
Begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=sqr(x)+sqr(y);
if s<=4<br>then writeln('4 равен или больше чем сумма квадратов x и y')
else writeln('4 меньше суммы квадратов x и y');
end. 

Comments

program Ex_031;

---

это не влияет

---

просто ты сначала назвал log- так нельзя, log- функция

---

я тебе ответ написал давно

---

что трудно переписать?

---

не это я скопировал неудачно

---

когда вставлял

---

описал первое что в голову пришло

---

к то я знаю что это нельзя

---

но сёравно спасибо что хоть старался)