Var x,y:real; begin write('x = '); readln(x); write('y = '); readln(y); if (x<0)and(y>0) then writeln('Точка находится во второй координатной четверти') else writeln('Точка не находится во второй координатной четверти'); end.
Пример: x = -2 y = 5 Точка находится во второй координатной четверти
Answers & Comments
Verified answer
Var x,y:real;begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x<0)and(y>0)
then writeln('Точка находится во второй координатной четверти')
else writeln('Точка не находится во второй координатной четверти');
end.
Пример:
x = -2
y = 5
Точка находится во второй координатной четверти