Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.