Question

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

Answer 1

Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
end.