Составьте программу которая определяет номер кординатной четверти в которой находяться точка с кординатой x,y числа x,y вводятся с клавиатуры
Answers & Comments
Fr3sh21
Var x,y:real; begin writeln('Введите X'); read(x); writeln('Введите Y'); read(y); if ((x>0)and(y>0)) then writeln('Точка находится в I четверти'); if ((x<0)and(y>0)) then writeln('Точка находится во II четверти'); if ((x<0)and(y<0)) then writeln('Точка находится в III четверти'); if ((x>0)and(y<0)) then writeln('Точка находится в IV четверти'); end.
Answers & Comments
begin
writeln('Введите X');
read(x);
writeln('Введите Y');
read(y);
if ((x>0)and(y>0)) then writeln('Точка находится в I четверти');
if ((x<0)and(y>0)) then writeln('Точка находится во II четверти');
if ((x<0)and(y<0)) then writeln('Точка находится в III четверти');
if ((x>0)and(y<0)) then writeln('Точка находится в IV четверти');
end.