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

Question

Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатой четверти, в которой находится точка с координатами (x, y). Числа x, y введите с клавиатуры.
Пример ввода: -5 7
Пример вывода:2
(Это в ПАСКАЛЬ)

Answer 1

Var x,y: integer;
    k: 1..4;
begin
writeln('Введите координаты:');
write('x=');readln(x);
write('y=');readln(y);
if (x>0) and (y>0) then k:=1 else
   if (x<0) and (y>0) then k:=2 else
      if (x<0) and (y<0) then k:=3 else k:=4;<br>writeln('Точка находится в ',k,' четверти координатной плоскости');
readln;
end.