Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Определить,
Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Найти, сколько раз последовательность поменяет символ. Ограничения! Нельзя использовать условный оператор (If) и оператор выбора (Case). Интерфейс программы обязан выглядеть последующим образом: Введите последовательность целых чисел через пробел. Заключительным введите число нуль. -gt; -1 -2 3 6 -5 -7 8 9 0 Последовательность меняет символ 3 раз(а).
Задать свой вопрос
var
x1, x2, count: integer;
begin
Writeln('Введите последовательность целых чисел через пробел,');
Writeln('заключительным введите число нуль:');
Read(x1);
while x1 lt;gt; 0 do
begin
Read(x2);
while x1 * x2 lt; 0 do
begin
inc(count);
break
end;
x1 := x2;
end;
Write('последовательность меняет знак ',count, ' раз');
Readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.