Question

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

Answer 1

var a,b,k:integer;
begin
write('a=');readln(a);
k:=0;
while a<>0 do
 begin
 b:=a;
 write('a=');readln(a);
 if a*b<0 then k:=k+1;
 end;
writeln('k=',k);
end.

Answer 2

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

# Инициализация переменных
count_changes = 0
prev_number = None

# Цикл ввода чисел
while True:
    # Ввод числа
    num = float(input("Введите число (введите 0 для завершения): "))

# Проверка на конец последовательности
    if num == 0:
        break

# Проверка на изменение знака
    if prev_number is not None and (num > 0 and prev_number < 0 or num < 0 and prev_number > 0):
        count_changes += 1

# Обновление предыдущего числа
    prev_number = num

# Вывод результата
print(f"Последовательность изменяет знак {count_changes} раз.")

В этом коде переменная `count_changes` используется для отслеживания количества изменений знака в последовательности. Цикл продолжается до тех пор, пока не введен 0 (конец последовательности). Каждое введенное число сравнивается со своим предыдущим значением, и если происходит изменение знака, переменная `count_changes` увеличивается.