Question

Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры два целых числа х и у, не равных нулю, и определяет номер координатной четверти, которой принадлежит точка
с координатами (x, y). Номер четверти выводите в римской системе счисления. Если точка
находится в первой четверти, то вывести I, если во второй - II, если в третьей - |||, если в
четвёртой - IV.
Числа вводятся в одной строке - используйте команду readln (x, y).
Указание. Программа должна выполнять минимальное число проверок для каждой пары.​

Answer 1

Объяснение:

var x,y:integer;

begin

 readln (x,y);

 if (x>0) and (y>0) then writeln ('I');

 if (x>0) and (y<0) then writeln ('IV');

 if (x<0) and (y>0) then writeln ('II');

 if (x<0) and (y<0) then writeln ('III');

end.