Question

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

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-1)and(x<=6)and(y<=5)and(y>=2)or
   (x>=-1)and(x<=2)and(y<=2)and(y>=-2)or
   (x>=-5)and(x<=2)and(y<=-2)and(y>=-5)
  then writeln('Да')
  else writeln('Нет')
end.

Пример:
x = 1
y = 1
Да