Question

Cоставить программу, которая печатает true, если точка с координатами (x;y) принадлежит заштрихованной области и false в противном случае.

Answer 1

Var  x, y :integer;
begin
  readln(x,y);  if ((x >= -1) and (x <= 2) and (y >= -5) and (y <= 5)) or      ((x >= -5) and (x <= -1) and (y >= -5) and (y <= -2)) or      ((x >= 2) and (x <= 6) and (y >= 2) and (y <= 5))  then    writeln('true')  else    writeln('false');
end.