Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Определить, сколько раз последовательность поменяет знак. Ограничения! Нельзя использовать условный оператор (If) и оператор выбора (Case). Интерфейс программы должен выглядеть следующим образом: Введите последовательность целых чисел через пробел. Последним введите число нуль. - > - 1 - 2 3 6 - 5 - 7 8 9 0 Последовательность меняет знак 3 раз (а).

Question

Информатика

Изий

31 августа, 21:45

Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Определить, сколько раз последовательность поменяет знак. Ограничения! Нельзя использовать условный оператор (If) и оператор выбора (Case). Интерфейс программы должен выглядеть следующим образом: Введите последовательность целых чисел через пробел. Последним введите число нуль. - > - 1 - 2 3 6 - 5 - 7 8 9 0 Последовательность меняет знак 3 раз (а).

+5

Ответы (1)

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

Ридель · Answer 1

var

x1, x2, count: integer;

begin

Writeln ('Введите последовательность целых чисел через пробел,') ;

Writeln ('последним введите число нуль:') ;

Read (x1) ;

while x1 0 do

begin

Read (x2) ;

while x1 * x2 < 0 do

begin

inc (count) ;

break

end;

x1 : = x2;

end;

Write ('последовательность меняет знак ', count, ' раз') ;

Readln;

end.