Question

Нужно составить программу, содержащую ветвления и определяющую, пренадлежит ли точка с координатами (X, Y) заштрихованой области.

Answer 1

Var
  x, y: real;

begin
  write('x: ');
  readln(x);
  write('y: ');
  readln(y);
  if ((x >= -6) and (x <= -1)) and ((y <= 7) and (y >= 2)) or (((x <= -3) and (x >= -6)) and ((y >= -3) and (y <= 2)))
    then writeln('Точка принадлежит закрашенной области')
  else writeln('Точка не принадлежит закрашенной области');
end.