Составить программу проверяющую принадлежность точки с координатами x,y, заштрихованной...

Question

Составить программу проверяющую принадлежность точки с координатами x,y, заштрихованной области на плоскости.

---

Answer 1

Var
x,y:real;
begin
write('Введите X: ');
readln(x);
write('Введите Y: ');
readln(y);
if (y>0) and (x*x+y*y<=1) <br>  then writeln('Принадлежит')
  else writeln('Не принадлежит');
end.