Регистрация
айеоник
06.10.2022 10:49
Информатика
Есть ответ 👍

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

296
477
Посмотреть ответы 2

Ответы на вопрос:

mrYaroslav2020
mrYaroslav2020
4,4(51 оценок)
Var       i, n, prev_n: integer; begin       i : = 0;       writeln('введите последовательность чисел,оканчивающихся 0');             repeat               readln(n);               if prev_n * n < 0 then                       i : = i + 1;               prev_n : = n;       until n = 0;             writeln(i); end.
BoDuChKa
BoDuChKa
4,8(3 оценок)

необходимо (но не достаточно).

Популярно: Информатика