Задать вопрос
29 января, 02:00

Помогите по информатике!

Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности меняется знак.

+5
Ответы (1)
  1. 29 января, 03:50
    0
    Var n, i, n1: integer;

    begin

    read (n);

    i : = 0;

    n1 : = 0;

    while n 0 do

    begin

    if n1 * n < 0 then

    i : = i + 1;

    n1 : = n;

    read (n);

    end;

    writeln (i);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Помогите по информатике! Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы