Question

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

Answer 1

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