Помогите пж. Я в програмировании дуб.А завтра сдавать! Ставлю лучшее решение. Нужно...

Question

Помогите пж. Я в програмировании дуб.А завтра сдавать! Ставлю лучшее решение. Нужно написать программы для этих фигур(вложение) Тема:принадлежащие точки заштрихованной области

---

---

---

Comments

Пж. помогите очень срочно

---

я не знаю

Answer 1

1) var x, y:integer;
begin
  read(x, y);
  if (sqr(x)+sqr(y)<=25) then<br>   begin   if (x<=0) and (y>=0) then writeln('Принадлежит') else
    begin
    if (y<=0) and (x<=0) then writeln('Принадлежит') else<br>     begin
      if (x>=0) and (y<=0) then writeln('Принадлежит') else writeln('Не принадлежит');                                                      <br>end;
    end;
   end;
  end.
2) var x, y:integer;
begin
  read(x, y);
  if (x+y<=6) and (x>=0) and (y>=0) then writeln('Принадлежит') else
   begin 
   if (x+y>=-6) and (x<=0) and (y<=0) then writeln('Принадлежит') else<br> writeln('Не принадлежит');
   end;
   end.
3) var x, y:integer;
begin
  read(x, y);
  if (x>=2) and (sqr(x)+sqr(y)<=64) then writeln('Принадлежит') else writeln('Не принадлежит');<br>  end.
4) var x, y:integer;
begin
  read(x, y);
  if (x>=-5) and (x<=-2) and (y>=0) and (y<=6) then writeln('Принадлежит') else<br>   begin
   if (x>=-2) and (x<=2) and (y>=2) and (y<=6) then writeln('Принадлежит') else <br>   begin
    if (x>=2) and (x<=6) and (y>=2) and (y<=6) then writeln('Принадлежит') else writeln('Не принадлежит');<br>    end; 
  end;
 end.