8.1.. Saberi i pomnoži prirodne brojeve do N koji su djeljivi sa 3.
Listing programa:
1 REM 08111020
INPUT "n ", n
p = 1
s = 0
FOR i = 1 TO n
p = p * i
NEXT i
PRINT "Od 1 do "; n; " djeljivih sa 3 proizvod je "; p; " a suma je "; s
END
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
 |
