Вычислить произведение (1+1)(2+1).(n+1) - Pascal

вычислить произведение (1+1)(2+1)...(n+1)

Листинг программы

var n,i, proizv:integer;
BEGIN
Readln (n);
proizv:=1;
For i:=1 to n do
proizv:=proizv*(i+1);
Writeln (proizv);
END.

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

Создается три переменные:
- n (тип integer) - для хранения введенного пользователем значения;
- i (тип integer) - для использования в цикле;
- proizv (тип integer) - для хранения результата произведения.
Пользователю предлагается ввести значение:
- Программа ожидает ввода значения n.
Инициализация переменной proizv:
- proizv устанавливается равным 1, что послужит начальным значением для результата.
Цикл:
- Цикл for начинается с i=1 и продолжается до i=n.
- На каждой итерации цикла выполнение кода включает следующие шаги:
  - i увеличивается на 1;
  - proizv умножается на (i+1), итог сохраняется в proizv.
Вывод результата:
- Выводится значение переменной proizv, содержащее произведение (1+1)(2+1).(n+1).