Вводится последовательность целых ненулевых чисел, - вопрос №92554490 от TOLIK474747 08.03.2021 23:14

Question

Информатика: Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. определить, сколько раз последовательность поменяет знак. ограничения! нельзя использовать условный оператор (if) и оператор выбора (case). интерфейс программы должен выглядеть следующим образом: введите последовательность целых чисел через пробел. последним введите число нуль. - -1 -2 3 6 -5 -7 8 9 0 последовательность меняет знак 3 раз(а).

TOLIK474747 · Answer

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

Println('Введите последовательность целых чисел через пробел.');

var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).

Pairwise.Where(t -> t[0] * t[1] < 0).Count;

Println($'Последовательность меняет знак {n} раз(а).')

end.

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