8.3.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitanih je djeljivo sa 7.

Listing programa:

REM 08315004
CLS
i = 1
DO
    PRINT "Unesi"; i;
    INPUT "broj:", k
    IF k MOD 7 = 0 THEN
        br = br + 1
        i = i + 1
    ELSE
        i = i + 1
    END IF
LOOP UNTIL i = 11
PRINT "Djeljivih je:", br;
PRINT "brojeva."
END

Ispis na ekranu:

Index