Составьте программу которая определяет номер кординатной четверти в которой находяться точка с кординатой x, y числа x, y вводятся с клавиатуры

Question

Информатика

Вероник

30 марта, 04:28

Составьте программу которая определяет номер кординатной четверти в которой находяться точка с кординатой x, y числа x, y вводятся с клавиатуры

+5

Ответы (1)

Знаете ответ на вопрос?

Георгина · Answer 1

Var X, Y:real;

Begin

Write ('X = ') ; ReadLn (X) ;

Write ('Y = ') ; ReadLn (Y) ;

if (X=0) and (Y=0) then Write ('Начало координат')

else

if X>0 then Begin

if Y>0 then Write ('Первая')

else Write ('Четвёртая')

end

else Begin

if Y>0 then Write ('Вторая')

else Write ('Третья')

end

End.