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

Simba2017:
а вам здесь никто и ничего не должен, чтобы вы так писали!
Ответы на вопрос
Ответил Леганда555
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.
Новые вопросы