Question

Определить принадлежит ли точка с
координатами (X;Y) заштрихованной части плоскости.

Answer 1

//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.