14.5.. Ispisati trocifrenih brojeve čija je prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4.

Opis rješenja: Provjera djeljivosti se izvodi naredbom MOD tj. if (s MOD 3 = 0 AND d MOD 4 = 0). Ako je logički izraz istinit izvrši uvečanja.

Listing programa:

REM 14511020
PRINT "Trocifren broj ispis - prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4"
FOR i = 100 TO 999            : REM za brojeve od 100 do 999
    s = INT(i / 100)          : REM stotice
    d = INT((i MOD 100) / 10) : REM desetice ili INT(i / 10) MOD 10 ili INT((i - s * 100) / 10)
    j = i MOD 10              : REM jedinice
    : REM   prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4?
    IF (s MOD 3 = 0) AND (d MOD 4 = 0) THEN
        PRINT i; " ";
    END IF
NEXT i
END

Ispis na ekranu:

Index