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

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

Question

Информатика

Аникитич

11 июня, 06:13

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

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

+3

Ответы (1)

Знаете ответ?

Леон · Answer 1

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 - конец последовательности. Определите, сколько раз в последовательности меняется знак.

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

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