8.3.. Izračunati aritmetičku sredinu prirodnih brojeva od a do b.
Listing programa:
REM 08313039
CLS
INPUT "a=", a
INPUT "b=", b
IF a < b THEN
s = 0
br = 0
i = a
DO
s = s + i
br = br + 1
i = i + 1
LOOP UNTIL i >= b - a
ar = s / br
PRINT ar
ELSE
PRINT "Nije definisano"
END IF
END
Ispis na ekranu:
Index
|