Question

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

Answer 1

Var
  x, y: real;

begin
  Write('Введите через пробел координаты точки (x,y): ');
  Readln(x, y);
  Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.

var
  x, y: real;

begin
  Write('Введите через пробел координаты точки (x,y): ');
  Readln(x, y);
  Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.