12.9.. Napisati program koji će za učitanu vrijednost N i zračunati vrijednost izraza i ispisati:
S = 4! + 8! + 12! + … + (4N)!

Opis rješenja: Za svako i se računa faktorijel a sabira samo za djeljive sa 4 (i MOD 4 = 0) izrazom s = s + p.

Listing programa:

REM p12900060
CLS
INPUT "Do broja:"; n
p = 1: REM pocetna vrijednost proizvoda (p=1)
s = 0: REM pocetna vrijednost sume (s=0)

i = 1: REM pocetna vrijednost kontrolne promjenljive i (i = 1)
DO: REM pocetak petlje radi
    p = p * i: REM formirati novi proizvod
    IF i MOD 4 = 0 THEN
        : REM ako je i djeljivo sa 4 tada
        s = s + p: REM formirati novu sumu
    END IF
    i = i + 1: REM uvecaj vrijednost kontrolne promjenljive (i=i+1)
LOOP UNTIL i > 4 * n: REM dok je kontrolna promjenljiva i <= 4*n ponovi petlju, inace izlazak iz petlje

PRINT "Suma je: "; s
END

Ispis na ekranu:

Index