Составить программу на языке паскаль: на координатной плоскости дана точка (х; у). определите номер координатной четверти.

128

172

Посмотреть ответы 2

Ответы на вопрос:

Reshauvce

Информатика

4,7(13 оценок)

Var x,y: integer; begin writeln('введите x'); readln(x); writeln('введите y'); readln(y); if (x> 0) and (y> 0) then writeln ('точка лежит в первой четверти'); if (x< 0) and (y> 0) then writeln ('точка лежит во второй четверти'); if (x> 0) and (y< 0) then writeln ('точка лежит в четвёртой четверти'); if (x< 0) and (y< 0) then writeln ('точка лежит в третьей четверти'); if (x=0) or (y=0) then writeln ('такой точки нет'); end.