Составить программу ,содержащую ветвления и определяющую ,принадледит ли точка с...

Question

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

---

Answer 1

//PascalABC.Net 3.2
begin
var x:=readreal ('Введите x-координату точки: ');
var y:=readreal ('Введите y-координату точки: ');
if ((x>=-5) and (x<=-2) and (y>=-2) and (y<=5)) or ((x>=-5) and (x<=5) and (y>=-2) and (y<=1)) or ((x>=2) and (x<=5) and (y>=-6) and (y<=1)) then<br>write ('принадлежит') else write ('не принадлежит');
end.