Question

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и 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.