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

Question

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

---

Answer 1

Var x,y:real;
begin
  write("Введите x:");
  readln(x);
  write("Введите y:");
  readln(y);
  if (((x>0) and (x<=1) and (y>0) and (y<=1)) or ((x>=-1) and (x<0) and (y>=-1) and (y<0)) or ((x=0) and (y=0))) then writeln("Входит") else writeln("Не входит");<br>end.