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 четверти'); else if(x>0)and(y<0)then writeln('Точка M находится в 4 четверти') else writeln('Точка M лежит на оси(осях) координат');
Answers & Comments
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 четверти');
else if(x>0)and(y<0)then writeln('Точка M находится в 4 четверти')
else writeln('Точка M лежит на оси(осях) координат');
end.