12.9.6. Napisati program koji će za učitanu vrijednost N izračunati vrijednost izraza i ispisati::
Listing programa:
REM 12900006
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 3 = 0 THEN
: REM ako je i djeljivo sa 3 tada
s = s + p: REM formirati novu sumu
END IF
i = i + 1: REM uvecaj vrijednost kontrolne promjenljive (i=i+1)
LOOP UNTIL i > 3 * n: REM dok je kontrolna promjenljiva i <= 3*n ponovi petlju, inace izlazak iz petlje
PRINT "Suma je: "; s
END
Ispis na ekranu:
Index
|