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

Question

Информатика

Габриила

30 октября, 06:51

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

+1

Ответы (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.