14.3.. Prebrojati dvocifrene brojeve kod kojih je pri djeljenju sa 3 ostatak 1.

REM 14313020
br = 0
FOR i = 10 TO 99         : REM dvocifreni brojevi
    : REM   ostatak dijeljenja sa 3 je 1?
    IF i MOD 3 = 1 THEN
        br = br + 1      : REM ostatak dijeljenja sa 3 je 1 - uvecaj brojac
    END IF
NEXT i
PRINT "Broj dvocifrenih brojeva kod kojih je pri djeljenju sa 3 ostatak 1 = "; br
END

Ispis na ekranu:
Broj dvocifrenih brojeva kod kojih je pri djeljenju sa 3 ostatak 1 je 30

Ispis na ekranu:

Index