Question

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

Answer 1

Ответ:

var

 a: integer;

 t,s: boolean;

begin

 t := true;

 read(a);

 s := a > 0;

 if a <> 0 then

 read(a);

 while t and (a <> 0) do

 begin

 t := (a > 0) <> s;

 s := not s;

 read(a)

 end;

 writeln(t)

end.

Понятно?)

Answer 2

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

pythonCopy code
def check_signs_alternate():
    sequence = []
    while True:
        num = int(input("Введите целое число (0 для выхода): "))
        if num == 0:
            break
        sequence.append(num)

    alternate = True
    for i in range(1, len(sequence)):
        if sequence[i] * sequence[i - 1] >= 0:
            alternate = False
            break

    if alternate:
        print("Знаки элементов чередуются.")
    else:
        print("Знаки элементов не чередуются.")


check_signs_alternate()

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