Регистрация
shkola56
02.07.2020 10:23
Информатика
Есть ответ 👍

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

177
239
Посмотреть ответы 2

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

ЛёхаТихонов
ЛёхаТихонов
4,4(62 оценок)
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.
agasan420
agasan420
4,6(80 оценок)
3579 3597 3759 3795 3957 3975 5379 5397 5739 5793 5937 5973 7359 7395 7539 7593 7935 7953 9357 9375 9537 9573 9735 9753

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