14.23. Izračunati sumu dvocifrenih brojeva djeljivih sa 3.

Opis rješenja: Provjera djeljivosti se izvodi po principu da li je ostatak dijeljenja sa 3 jednak nuli (naredba MOD). Za provjeru ostatka koristi se naredba MOD. Za slučajeve kad je ostatak dijeljenja 3 jednak 0 izračunava se kumulativna suma s:=s+i. Primjeri ostatka dijeljenja sa 3:
0 MOD 3 = 0
1 MOD 3 = 1
2 MOD 3 = 2
3 MOD 3 = 0
4 MOD 3 = 1
5 MOD 3 = 2
6 MOD 3 = 0

Listing programa:

REM 14212003
PRINT "Dvocifreni - Suma djeljivih sa 3"
s = 0
FOR i = 10 TO 99                 : REM dvocifreni brojevi
    : REM   djeljivih sa 3?
    IF i MOD 3 = 0 THEN
        s = s + i                : REM da, uvecaj sumu
    END IF
NEXT i
PRINT "Suma = "; s      : REM ispis
END

Ispis na ekranu:

Index