Составить программу для паскаля определить и вывести ** печать номер четверти, в которой...

Question

Составить программу для паскаля
определить и вывести на печать номер четверти, в которой находится точка М с координатами х и у.

Answer 1

Var x,y:real;

begin   
  write('Введите координаты точки M(x,y): ');    
  readln(x,y);

  if(x>0)and(y>0)then writeln('Точка M находится в 1 четверти');   
  else if(x<0)and(y>0)then writeln('Точка M находится в 2 четверти');    
  else if(x<0)and(y<0)then writeln('Точка M находится в 3 четверти');    <br>  else if(x>0)and(y<0)then writeln('Точка M находится в 4 четверти')    <br>  else writeln('Точка M лежит на оси(осях) координат');

end.