<span>var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if((x<=0)and(y>=0)and(x*x+y*y<=1))
or((x>=0)and(y<=0) and(x*x+y*y<=2))
then write('Точка принадлежит заштрихованной области')
else write('Точка не принадлежит заштрихованной области')
end<span>.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var (x,y):=ReadReal2('Введите координаты точки:'); var r:=ReadReal('Введите радиус окружности:'); if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает') else Writeln('Не попадает') end.
<u>Примеры</u> Введите координаты точки: -1.1 1.2 Введите радиус окружности: 2 Не попадает
Введите координаты точки: -1.1 0.8 Введите радиус окружности: 2 Попадает