Question

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

Answer 1

Var x,y: real;
begin
  write('задайте x и y  ');
  readln(x,y);
  if (x>0) and (y>0) then 
     if ((x>3) and (x<6) and (y<Sqrt(36-x*x))) or     
     ((x<3) and ((y>3-x) and (y<Sqrt(36-x*x)))) or     
     ((y>3) and (y<6) and (x<Sqrt(36-y*y))) or
     ((y<3) and (((3-y)<x) and (x<Sqrt(36-y*y)))) then     
     writeln('точка лежит в области')
    else
       writeln('точка не лежит в области')
  else     writeln('координаты должны быть положительными');
end.