Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.