Question

Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что знаки элементов этой последовательности чередуются

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  число: ЦЕЛ;
  полож, черед: КЛЮЧ;

УКАЗ
  черед := ВКЛ;
  число := Приём.Число();
  полож := число > 0;
  ПОКА число # 0 ВЫП
    Вывод.Цепь("^");
    ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО
      черед := ОТКЛ
    КОН;
    число := Приём.Число();
    полож := число > 0
  КОН;
  ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОН

КОН Задание.

Answer 2

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

def check_alternating_signs(sequence):
    # Переменная для хранения предыдущего знака
    prev_sign = None
    
    # Проход по всей последовательности
    for number in sequence:
        # Если число равно 0, завершаем цикл
        if number == 0:
            break
        
        # Определяем знак числа
        current_sign = '+' if number > 0 else '-' if number < 0 else None
        
        # Если предыдущий знак существует и он равен текущему, значит, знаки не чередуются
        if prev_sign is not None and prev_sign == current_sign:
            return False
        
        # Обновляем предыдущий знак
        prev_sign = current_sign
    
    # Если программа дошла до этого места, значит, знаки чередуются
    return True

# Ввод последовательности от пользователя
sequence = []
while True:
    try:
        number = int(input("Введите целое число (введите 0 для завершения ввода): "))
        sequence.append(number)
        if number == 0:
            break
    except ValueError:
        print("Пожалуйста, введите целое число.")

# Проверка чередования знаков и вывод результата
result = check_alternating_signs(sequence[:-1])  # Исключаем последний элемент (ноль) из проверки
if result:
    print("Знаки элементов последовательности чередуются.")
else:
    print("Знаки элементов последовательности не чередуются.")

Программа запрашивает у пользователя ввод целых чисел до тех пор, пока не будет введен 0. Затем она проверяет, чередуются ли знаки введенных чисел, и выводит соответствующее сообщение.