Дана точка ** плоскости с координатами (x,y). Составить программу которая выдаёт одно из...

Question

Дана точка на плоскости с координатами (x,y). Составить программу которая выдаёт одно из сообщений "да", "нет", "на границе" в зависимости от того лежит ли точка вгибом заштрихованной области, вне заштрихованной области или на её границе. Области заедаются графически следующим образом

---

Answer 1

// PascalABC.NET 3.0, сборка 1073
var
  x,y:real;
begin
  Writeln('Введите координаты х и у: '); Read(x,y);
  if (y>12) or (y  else
    if (y<12) and (y>abs(x)) then Writeln('Да')
    else Writeln('На границе')
end.

Тестовые решения:
Введите координаты х и у:
-5 10
Да

Введите координаты х и у:
-10 5
Нет

Введите координаты х и у:
5 5
На границе

Answer 2

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y<12)and(y>abs(x))
  then writeln('Да')
  else if (y>12)or(y                             else writeln('На границе');
end.