В паскале составить программу, содержащую ветвления и определяющую, принадлежит ли точка...

Question

В паскале составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами x и у заштрихованной области

---

Answer 1

Var x,y: real;
begin
  write('x y через пробел: '); readln(x,y);
  if ((-6<=x) and (x<=1) and (-3<=y) and (y<=7)) and<br>     not ((-3     writeln('точка принадлежит области')
  else writeln('точка не принадлежит области');
end.

x y через пробел: -2 1.5
точка не принадлежит области

x y через пробел: - 4  5
точка принадлежит области