Вопрос задан 07.05.2021 в 22:19. Предмет Информатика. Спрашивает Яблокова Альбина.

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

з последовательность меняет знак

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

Отвечает Язева Карина.
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.

Последние заданные вопросы в категории Информатика

Информатика 08.05.2021 01:48 441 Filippova Arina.
Ответов: 1
Информатика 08.05.2021 01:08 352 Здравствуй Ева.
Ответов: 1
Информатика 08.05.2021 01:20 338 Корунец Аня.
Ответов: 2
Информатика 08.05.2021 01:28 260 Ветрова Віталіна.
Ответов: 1
Информатика 08.05.2021 01:06 301 Харюков Антон.
Ответов: 1
Информатика 08.05.2021 01:13 337 Добрева Аня.
Ответов: 1
Информатика 08.05.2021 01:06 334 Култыгин Роман.
Ответов: 1
Информатика 08.05.2021 01:34 306 Asimova Diana.
Ответов: 1
Информатика 08.05.2021 00:13 271 Федорак Марко.
Ответов: 1
Информатика 08.05.2021 00:06 281 Минаев Кирилл.
Ответов: 1
Предметы