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

Opis rješenja:

Listing programa:

REM 12500036
PRINT "k= ";
INPUT k
PRINT "n= ";
INPUT n
s = 0: REM pocetna vrijednost sume
p = 1: REM pocetna vrijednost proizvoda
kfakt = 1

FOR i = 1 TO 3 * n: REM ponavljanje za i=1 do i=3*n
    p = p * i
    IF i MOD 3 = 0 THEN
        REM ako je i djeljiv sa 3 izvedi
        kfakt = kfakt * k: REM nova vrijednost koeficijenta
        s = s + p * kfakt: REM suma
    END IF
NEXT i: REM  napredovanje kroz petlju

PRINT "s="; s
END

Ispis na ekranu:

Index