12.5.2. Napisati program koji će za učitanu vrijednost N izračunati vrijednost izraza i ispisati:

Listing programa:

REM p12500002;
CLS
INPUT "Do broja:"; n
p = 1
s = 0
FOR I = 1 TO n
 p = p * I
 s = s + p
NEXT I
PRINT "Suma faktorijala je:"; s
END

Ispis na ekranu:

Index