14.3.. Izračunati proizvod dvocifrene brojeva kod kojih pri djeljenju sa 3 nije ostatak 1

Opis rješenja:

Listing programa:

REM 14313006
PRINT "Dvocifreni - Proizvod brojeva ciji ostatak dijeljenja sa 3 nije 1"
p = 1
exponent = 0
FOR i = 10 TO 99
    : REM   ostatak dijeljenja sa 3 nije 1
    IF i MOD 3 <> 1 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