Вычислить произведение положительных чисел последовательности - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

ребят выручите пожалуйста И если не сложно еще ( Дана последовательность неотрицательных чисел, последнее из которых равно нулю: причем других равных нулю чисел в последовательности нет.Вычислить произведение положительных чисел этой последовательности (Нужен алгоритм:блок-схема или псевдокод))

Решение задачи: «Вычислить произведение положительных чисел последовательности»

textual
Листинг программы
k:=0;с:='z';while c>='a' do begin c:=pred(c);k+=1;end;

Объяснение кода листинга программы

  1. Объявляется переменная k типа целое и инициализируется значением 0.
  2. Объявляется переменная c типа символьный и инициализируется значением 'z'.
  3. Запускается цикл while, который будет выполняться до тех пор, пока значение переменной c больше или равно 'a'.
  4. Внутри цикла значение переменной c присваивается значение pred(c), где pred - это функция, возвращающая предыдущее значение символа в алфавите.
  5. Каждое выполнение цикла увеличивает значение переменной k на 1.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы