Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. определить, сколько раз последовательность поменяет знак. ограничения! нельзя использовать условный оператор (if) и оператор выбора (case). интерфейс программы должен выглядеть следующим образом: введите последовательность целых чисел через пробел. последним введите число нуль. -> -1 -2 3 6 -5 -7 8 9 0 последовательность меняет знак 3 раз(а).
161
263
Ответы на вопрос:
// 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.
Pascal:
program asd;
var s:Integer;
begin
readln(s);
writeln(s, ' - вот какое число Вы ввели');
end.
Популярно: Информатика
-
doblesn06.03.2022 18:08
-
lizakocirbenck28.04.2022 16:04
-
lalala10614.03.2023 10:57
-
gerasimovgleb22429.10.2021 21:16
-
ke7rin16.10.2022 02:23
-
mashamelnik2825.11.2021 06:15
-
zohvav18.12.2022 12:07
-
zoonadin01.02.2021 20:33
-
fiyyk28.05.2021 06:56
-
MatthewSan28.04.2022 07:30