Question

Попадает ли точка в заштрихованную область Pascal.

Answer 1

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.

Answer 2

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите координаты точки:');
  var r:=ReadReal('Введите радиус окружности:');
  if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает')
  else Writeln('Не попадает')
end.

Примеры
Введите координаты точки: -1.1 1.2
Введите радиус окружности: 2
Не попадает

Введите координаты точки: -1.1 0.8
Введите радиус окружности: 2
Попадает