Program Boolean28;
Var
x, y: Real;
Begin
ReadLn(x, y);
WriteLn(((x >= 0) And (y >= 0)) Or ((x <= 0) And (y <= 0)));
end.
Похожие записи/страницы:
- Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй или третьей координатной…
- Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в…
- Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй координатной четверти» - Pascal(Паскаль)
- Проверить истинность высказывания: «Точка с координатами (x, y) лежит в четвертой координатной четверти» -…
- Проверить истинность высказывания: " Данные числа x, y являются координатами точки, лежащей во второй…
- Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя…
- Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с…
- Дана окружность радиуса R с центром в начале координат. Написать программу, определяющую, лежит ли точка с…