begin
var (x, y) := readinteger2;
if ((x > 0) and (y > 0)) or ((x < 0) and (y < 0)) then
write('TRUE')
else
write('FALSE')
end.
Объяснение:
begin // Начало программы
var (x, y) := readinteger2; // Вводим координаты x, y с клавиатуры
if ((x > 0) and (y > 0)) or ((x < 0) and (y < 0)) then // Если (x > 0 И y > 0) ИЛИ (x < 0 И y < 0), тогда
write('TRUE') // Выводим TRUE
else // Иначе
write('FALSE') // Выводим FALSE
end. // Конец программы
begin
var (x, y) := readinteger2;
if ((x > 0) and (y > 0)) or ((x < 0) and (y < 0)) then
write('TRUE')
else
write('FALSE')
end.
Объяснение:
begin // Начало программы
var (x, y) := readinteger2; // Вводим координаты x, y с клавиатуры
if ((x > 0) and (y > 0)) or ((x < 0) and (y < 0)) then // Если (x > 0 И y > 0) ИЛИ (x < 0 И y < 0), тогда
write('TRUE') // Выводим TRUE
else // Иначе
write('FALSE') // Выводим FALSE
end. // Конец программы