Question

Помогите срочно!!! Надо написать программу которая определяет принадлежность точки с координатами x,y в заштрихованной области

Answer 1

Var 
prin: boolean; 
x, y: integer; 
begin 
readln(x); 
readln(y); 

if (x <= 0) and (x >= -3) and (y <= x + 3) then 
prin := true 
else if (x >= 0) and (x <= 3) and (y <= - x + 3) then 
prin := true 
else if (y <= 0) and (y >= -3) and (abs(x) <= 3) then 
prin := true 
else 
prin := false; 

if prin then writeln('принадлежит') else writeln('не принадлежит'); 
end.