Napisati program za izračunavanje zbira faktorijela sa funkcijom za izračunavanje faktorijela.

Listing programa:

PROGRAM faktorijel;
USES
  WinCrt;
VAR
  i, n: Integer;
  s : Real;
FUNCTION fact(a:Integer):Real;
VAR
  i: Integer;
  p: Real;
BEGIN
  p := 1;
  FOR i:= 1 TO a DO
    p := p * i;
  fact := p;
END;

BEGIN
  Writeln ('Suma faktorijel brojeva do n ');
  Write('n ');
  Readln(n);
  s := 0;
  FOR i := 1 TO n DO
    s := s + fact (i);
  writeln('faktorijel  = ', s );
END.

Index