14.3.. Izračunati proizvod dvocifrene brojeva kod kojih pri djeljenju sa 3 je ostatak 2.

Opis rješenja: Provjera djeljivosti se izvodi IF i MOD 3 = 2 THEN . Proizvod se izračunava kumulativni proizvod p = p * i.

Listing programa:

REM 14313008
PRINT "Dvocifreni - Proizvod brojeva ciji ostatak dijeljenja sa 3 je 2"
p = 1
exponent = 0
FOR i = 10 TO 99
    : REM   ostatak dijeljenja sa 3 je 2
    IF i MOD 3 = 2 THEN
        p = p * i                   : REM nova vrijednost proizvoda p = p * broj
        : REM   proizvod veci od 1000?
        IF (p > 1000) THEN
            p = p / 1000            : REM podijeli proizvod sa 1000
            exponent = exponent + 3 : REM  uvecaj eksponet za 3
        ELSE                        : REM  proizvod nije veci od 1000
            p = p / 10              : REM  podijeli p sa 10
            exponent = exponent + 1 : REM  uvecaj eksponet za 1
        END IF
    END IF
NEXT i
PRINT "Proizvod = "; p; " eksponent "; exponent
END

Ispis na ekranu:

Index