14.3.. Prebrojati dvocifrene brojeve kod kojih je suma cifara veća od 7.

Listing programa:

REM 14314030
FOR i = 10 TO 99
    j = i MOD 10    : REM jedice
    d = INT(i / 10) : REM desetice
    suma = d + j    : REM suma
    IF suma > 7 THEN
        br = br + 1 : REM novi broj
    END IF
NEXT i
PRINT "ima "; br; " brojeva djeljivih sa 7"
END

Ispis na ekranu:

Index