8.2.. Izračunati aritmetičku sredinu prirodnih brojeva od k do n koji nisu djeljivi sa a.

Listing programa:

REM 08213030
CLS
INPUT "k=", k
INPUT "n=", n
INPUT "a=", a
IF k < n THEN
    s = 0
    br = 0
    i = k
    WHILE I <= n
        IF i MOD a <> 0 THEN
            s = s + i
            br = br + 1
        END IF
        i = i + 1
    WEND
    ar = s / br
    PRINT ar
ELSE
    PRINT "Nije definisano"
END IF
END

Ispis na ekranu:

Index