Вычислить произведение положительных чисел последовательности - PascalABC.NET
Формулировка задачи:
ребят выручите пожалуйста
И если не сложно еще ( Дана последовательность неотрицательных чисел, последнее из которых равно нулю: причем других равных нулю чисел в последовательности нет.Вычислить произведение положительных чисел этой последовательности (Нужен алгоритм:блок-схема или псевдокод))
Решение задачи: «Вычислить произведение положительных чисел последовательности»
textual
Листинг программы
k:=0;с:='z';while c>='a' do begin c:=pred(c);k+=1;end;
Объяснение кода листинга программы
- Объявляется переменная
k
типацелое
и инициализируется значением 0. - Объявляется переменная
c
типасимвольный
и инициализируется значением 'z'. - Запускается цикл while, который будет выполняться до тех пор, пока значение переменной
c
больше или равно 'a'. - Внутри цикла значение переменной
c
присваивается значениеpred(c)
, гдеpred
- это функция, возвращающая предыдущее значение символа в алфавите. - Каждое выполнение цикла увеличивает значение переменной
k
на 1.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д