8.2.. Izračunati aritmetičku sredinu prirodnih brojeva od a do b.

Listing programa:

REM 08213039
CLS
INPUT "a=", a
INPUT "b=", b
IF a < b THEN
    s = 0
    br = 0
    i = a
	WHILE i <= b
        s = s + i
        br = br + 1
        i = i + 1
    WEND
    ar = s / br
    PRINT ar
ELSE
    PRINT "Nije definisano"
END IF
END

Ispis na ekranu:

Index