Question

Вводится последовательность не нулевых чисел . Ноль конец последовательности . Определить сколько раз последовательность меняет знак

Answer 1

Var
    i, n, prev_n: integer;

begin
    i := 0;
    writeln('Введите последовательность чисел,оканчивающихся 0');
    
    repeat
        readln(n);
        if prev_n * n < 0 then
            i := i + 1;
        prev_n := n;
    until n = 0;
    
    writeln(i);
end.

Answer 2

Для решения этой задачи нужно следить за знаком предыдущего числа и знаком текущего числа. Если они разные, то последовательность меняет знак. Изначально знак предыдущего числа можно задать как положительный.

Пример кода на Python:

pythonCopy code
prev = 1  # знак предыдущего числа (изначально положительный)
count = 0  # счетчик количества смен знака

while True:
    num = int(input())
    if num == 0:
        break
    if num * prev < 0:  # знаки разные
        count += 1
    prev = 1 if num > 0 else -1  # задаем знак предыдущего числа

print(count)

В этом коде мы считываем числа из стандартного потока ввода с помощью функции input(). Когда вводится ноль, мы выходим из цикла с помощью оператора break. Затем проверяем, что знак текущего числа отличается от знака предыдущего числа с помощью выражения num * prev < 0. Если это так, то увеличиваем счетчик смен знака на единицу. Наконец, задаем знак предыдущего числа в зависимости от знака текущего числа с помощью тернарного оператора.

Если вы хотите протестировать этот код, вам нужно запустить его в интерпретаторе Python и ввести последовательность чисел, заканчивающуюся нулем. Например:

diffCopy code
1
-2
3
-4
5
0

Результат выполнения программы будет равен 4, так как последовательность меняет знак 4 раза (после первого, второго, третьего и четвертого чисел).