14.. Ispisati trocifrene brojeve kod kojih je pri djeljenju sa 3 ostatak 1 (jedna petlja).

Opis rješenja: Zadatak je riješen korištenjem jedne FOR petlje. Provjera da li je ostatak dijeljenja trocifrenog broja sa 3 jednak 1 se izvodi logičkim izrazom IF i MOD 3 = 1 THEN.

Listing programa:

REM 14511014
PRINT "Trocifreni brojevi - djeljenju sa 3 ostatak 1"
FOR i = 100 TO 999            : REM za trocifrene brojeve radi
    : REM    djeljenju sa 3 ostatak 1?
    IF i MOD 3 = 1 THEN
        PRINT i; " ";         : REM djeljenju sa 3 ostatak 1
    END IF
NEXT i
END

Ispis na ekranu:

Index