Паскаль в примерах. Иринчеев А.А - 44 стр.

           WRITELN(‘Ответ: SR = ’,SR:8:3);
END.

                             2.14. Вычисление произведения

    Произведение вычисляется по рекуррентному выражению
       P=P*Y,
       где P - промежуточные произведения;
            Y - сомножители.
    По данному выражению каждое новое значение получается из предыдущего умножени-
ем очередного сомножителя. Для первого сомножителя Y начальное значение произведения
P = 1.
       Пример 18. Составить программу для вычисления произведения N чисел.
Введем обозначения:
       P - произведение всех чисел;
       A - значение I - го числа;
       N - количество чисел.

PROGRAM PR18;
 VAR
  I,N:INTEGER;
   P,A:REAL:
      BEGIN
       WRITE(‘ Введите N’);
       READLN(N);
      P:=1;
       FOR I:=1 TO N DO
BEGIN
 WRITE(‘ Введите ‘,I,’ число’);
 READLN(A);
  P:=P*A:
END;
  WRITELN(‘Ответ: P = ’,P:8:3);
READLN;
END.

                              2.15. Определение факториала

     Математически определение факториала запишем как P=N! При этом используется
прием накопления произведения.
      Рассмотрим, чему равняется 3!. Р=3*2*1=6.
      Для вычисления факториала воспользуемся переменной типа LONGINT вместо
INTEGER.

PROGRAM PR19;
 VAR
  I,N:INTEGER;
  P:LONGINT;
    BEGIN
     WRITE(‘ Введите ‘,N,’ число’);
      READLN(N);
       P:=1;

                                                                                  44