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
|