Question

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

Answer 1

Var x,y:real;
BEGIN
writeln('Введи значения x,y');
readln(x,y);
if (x>=-2) and (x<=3) and (y>=0) and (y<=2) writeln('принадлежит') 
else writeln('не принадлежит');
readln;
END.