Question

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае.№11 Заранее спасибо 

Answer 1

Var
x, y: integer;
begin
read(x); read(y);
if (x>-10)and(x<10)and(y<4)and(y>-4) then
writeln('true'') else writeln('false');
end.

Answer 2

На рисунке часть окружности с центром в точке (0; 0) и радиусом 6.
Достаточно проверить, принадлежит ли точка этой окружности и ее положение относительно прямой x = 2.
Сама программа:
var
  x, y: real;
begin
  read(x, y);
  writeln((x >= 2) and (x * x + y * y <= 36))
end.