8.1.. Izračunati sumu prirodnih brojeva u intervalu od k do n koji nisu djeljivi sa a.

Listing programa:

REM 08112033 
PRINT "Ispis od 1 do n - nisu djeljivi sa 5"  : REM naslov 
s = 0                           : REM pocetna vrijednost
INPUT "Od broja: ", k           : REM ucitavanje vrijednosti varijable k sa tastature
INPUT "Do broja: ", n           : REM ime varijable cija vrijednost se ucitava
INPUT "Djelilac: ", a           : REM vrijednost djelioca
FOR i = k TO n                  : REM ponavljanje za i=k do i=n - pocetak petlje
REM broj nije djeljiv sa a?
    IF i MOD a <> 0 THEN 
        s = s + i               : REM da - djeljivi sa a, uvecaj s za vrijednosti i; s=s+i
    END IF
NEXT i                          : REM kraj petlje
PRINT "Suma = ";s               : REM  ispis vrijednost s
END

Ispis na ekranu:

Index