Question

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

Answer 1

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<abs(x)) then writeln('Нет')
                             else writeln('На границе');
end.

Answer 2

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

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

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

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