Question

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

Answer 1

Var x,y:real;
begin
writeln('x, y:');
readln(x,y);
writeln((y>=2)and(x*x+y*y>=4*4)and(x*x+y*y<=6*6));
end.

Пример:
x, y:
2 5True