8.1.. Ispis prirodnih brojeva djeljivih sa a od k do n.

Listing programa: Provjera djeljivosti sa 5 se izvodi logičkim izrazom i MOD a = 0 u naredbi IF unutar FOR petlje.

REM 08111027
PRINT "Ispis od k do n - djeljivi sa a" : REM naslov

PRINT "Od broja: ";                     : REM ime varijable cija vrijednost se ucitava
INPUT k                                 : REM ucitavanje vrijednosti varijable k sa tastature
PRINT "Do broja: ";                     : REM ime varijable cija vrijednost se ucitava
INPUT n                                 : REM ucitavanje vrijednosti varijable n sa tastature
PRINT "Djelilac: ";                     : REM ime varijable cija vrijednost se ucitava
INPUT a                                 : REM vrijednosti djelioca

FOR i = k TO n                          : REM ponavljanje za i=k do i=n - pocetak petlje
    REM broj djeljiv sa a?
    IF (i MOD a = 0) THEN
        PRINT "i= "; i                  : REM da - djeljiv, ispis vrijednost i
    END IF
NEXT i                                  : REM kraj petlje 

Ispis na ekranu:

Index