14.6.. Napisati program za izračunavanje sume trocifrenih brojeva koji nisu djeljivi sa 3.

Opis rješenja: Kumulativna suma se izračunava sa suma =suma + i Provjera djeljivosti se izvodi funkcijom MOD u naredbi IF i MOD 3 <> 0 THEN. Ako ostatak dijeljenja sa 3 nije jednak 0 to znači da trocifreni broj nije djeljiv sa 3 te se vrijednost broja dodaje na sumu.

Listing programa:

REM 14612013
PRINT "Trocifren broj - Suma - nisu djeljivi sa 3"
suma = 0
FOR i = 100 TO 999            : REM za trocifrene brojeve radi
    : REM     nisu djeljivi sa 3?    
    IF i MOD 3 <> 0 THEN
        suma = suma + i       : REM da, uvecaj sumu
    END IF
NEXT i
PRINT "Suma "; suma           : REM ispis
END

Ispis na ekranu:

Index