Помогите срочно!!! Надо написать программу которая определяет принадлежность точки с координатами x,y в заштрихованной области
Приложения:
Ответы
Ответ дал:
0
var
prin: boolean;
x, y: integer;
begin
readln(x);
readln(y);
if (x <= 0) and (x >= -3) and (y <= x + 3) then
prin := true
else if (x >= 0) and (x <= 3) and (y <= - x + 3) then
prin := true
else if (y <= 0) and (y >= -3) and (abs(x) <= 3) then
prin := true
else
prin := false;
if prin then writeln('принадлежит') else writeln('не принадлежит');
end.
prin: boolean;
x, y: integer;
begin
readln(x);
readln(y);
if (x <= 0) and (x >= -3) and (y <= x + 3) then
prin := true
else if (x >= 0) and (x <= 3) and (y <= - x + 3) then
prin := true
else if (y <= 0) and (y >= -3) and (abs(x) <= 3) then
prin := true
else
prin := false;
if prin then writeln('принадлежит') else writeln('не принадлежит');
end.
Ответ дал:
0
Сказать что она правильная на 100% не могу!
Похожие вопросы
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад