Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры два целых числа х и у,
не равных нулю, и определяет номер координатной четверти, которой принадлежит точка
с координатами (x, y). Номер четверти выводите в римской системе счисления. Если точка
находится в первой четверти, то вывести I, если во второй - II, если в третьей - |||, если в
четвёртой - IV.
Числа вводятся в одной строке - используйте команду readln (x, y).
Указание. Программа должна выполнять минимальное число проверок для каждой пары.
не равных нулю, и определяет номер координатной четверти, которой принадлежит точка
с координатами (x, y). Номер четверти выводите в римской системе счисления. Если точка
находится в первой четверти, то вывести I, если во второй - II, если в третьей - |||, если в
четвёртой - IV.
Числа вводятся в одной строке - используйте команду readln (x, y).
Указание. Программа должна выполнять минимальное число проверок для каждой пары.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
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.