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

Listing programa:

REM 08215004
CLS
i = 1
WHILE I <= 10
    PRINT "Unesi"; i;
    INPUT "broj:", k
    IF k MOD 7 = 0 THEN
        br = br + 1
        i = i + 1
    ELSE
        i = i + 1
    END IF
WEND
PRINT "Djeljivih je:", br;
PRINT "brojeva."
END

Ispis na ekranu:

Index