Question

Решение должно быть выполнено в Паскаль.

Answer 1

1 график:

var

 x, y: Double;

begin

 Read(x, y);

 if (y <= 2 * x + 2) and (y <= -2 * x + 2) and (y >= -1) then

   WriteLn('принадлежит')

 else

   WriteLn('не принадлежит')

end.  

2 график:

var

 x, y: Double;

begin

 Read(x, y);

 if (y >= 1) or (y >= x) and (y >= -x) then

   WriteLn('принадлежит')

 else

   WriteLn('не принадлежит')

end.