Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит...

Question

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае.

---

Comments

Печально. Только хотел на PascalABC.NET написать...

---

Я-то могу, но программа не пойдет в Pascal ABC. Ни одна ее строка, кроме begin и end. не пойдет.

---

Да чего же тут решать-то? Не можете описать область, где выражение истинно?

Answer 1

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

begin
  var (x,y):=ReadReal2('Введите координаты точки:');
  Writeln(
      (Abs(x)<5) and (y>0) and (y<5) and<br>      not ((Abs(x)<=2) and (y>0) and (y<=1)))<br>end.