МНОГО БАЛЛОВ! Составить программу, содержащую ветвления и определяющую, принадлежит ли...

Question

МНОГО БАЛЛОВ! Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X,Y) заштрихованной области. (рис.5)

---

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and((x*x+y*y<=4*4)and(y>=0)or(x*x+y*y<=5*5)and(y<=0))<br>  then writeln('Да')
  else writeln('Нет')
end.

Пример:
x = 2
y = -3
Да