Question

Как определить попадает ли точка в заштрихованную область, Pascal?
Заранее спасибо!

Answer 1

Var a,x,y:integer;
begin
Readln(a,x,y);
b:=sqrt(sqr(x)+sqr(y));
If ((x<=0) and (y>=0) and (b<=a)) or ((x>=0) and (y<=0) and (b<=a)) then
Write('Входит')
else
Write('Не входит');
end.