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

Opis rješenja:

Listing programa:

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