Question

20 балов .Очень нужнооо!Задачи на определение принадлежности точки области

Для каждой задачи составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X, Y) заштрихованной области.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
 var (x,y):=ReadReal2;
 var p:=(x>-4) and (x<5) and (y>-3) and (y<0) or
    (y>0) and (y<4) and (Abs(x)<2);
 if p then Writeln('Принадлежит')
 else Writeln('Не принадлежит')
end.