Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Найти,
Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Найти, сколько раз последовательность поменяет знак. Ограничения! Нельзя использовать условный оператор (If) и оператор выбора (Case). Интерфейс программки должен смотреться следующим образом: Введите последовательность целых чисел через пробел. Заключительным введите число нуль. -gt; -1 -2 3 6 -5 -7 8 9 0 Последовательность меняет символ 3 раз(а).
Задать свой вопрос// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программка не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Заключительным введите число нoль. -gt;', t -gt; t lt;gt; 0).
Pairwise.Where(t -gt; t[0] * t[1] lt; 0).Count;
Println('Последовательность меняет знак n раз(а).')
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.