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

hdhdhdhsaiq hdhdhdhsaiq    2   27.09.2019 13:30    9

Ответы
Ксения201711112 Ксения201711112  08.10.2020 22:46

// 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 - конец последовательности. определить, сколько
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика