Ввести координаты и определить, попадают ли они в закрашенную область

Question

Ввести координаты и определить, попадают ли они в закрашенную область

---

Comments

паскаль?

---

Да

Answer 1

Var
   x, y: integer;
begin
   readln(x, y);
   if (x > 0) and (y>=0) and (y<=x) or (x<=0) and (y>0) and (y< -x) then
       writeln('Принадлежит')
   else
      writeln('Не принадлежит');
end.