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

1

Ответы и объяснения

2013-12-18T15:37:23+00:00
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.
Сказать что она правильная на 100% не могу!