if (n > 0) and (m > 0) or (n < 0) and (m < 0) then
writeln('1')
else
writeln('0');
end.
Сначала мы считываем два целых числа n и m. Затем мы проверяем знаки n и m на совпадение с помощью условного оператора if. Если оба числа положительны или оба отрицательны, то мы выводим 1. В противном случае мы выводим 0.
1 votes Thanks 1
emnsy
Большое спасибо за код сразу с объяснением. Если можете, то ответьте пожалуйста ещё на вопрос в моём профиле, где нужно решить задачу №8865
Answers & Comments
var
n, m: integer;
begin
readln(n, m);
if (n > 0) and (m > 0) or (n < 0) and (m < 0) then
writeln('1')
else
writeln('0');
end.
Сначала мы считываем два целых числа n и m. Затем мы проверяем знаки n и m на совпадение с помощью условного оператора if. Если оба числа положительны или оба отрицательны, то мы выводим 1. В противном случае мы выводим 0.