Question

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

Answer 1

Ответ:

var xy:integer; begin readln (xy); if (x>0) and (y>0) then writeln ("); if (x>0) and (y0) then writeln (IV'); (x<0) and (y>0) then writeln (' II'); if (x<0) and (y<0) then writeln ("I); end.