8.1.. Napisati program za ispis aritmetičke sredine prirodnih brojeva do n.
Listing programa:
REM 08113010
REM
CLS
INPUT "Aritmeticka sredina od 1 do"; n
s = 0
br = 0
FOR i = 1 TO n
s = s + i
br = br + 1
NEXT i
a = s / br
PRINT "Aritmeticka sredina od 1 do"; n; "je"; a
END
Ispis na ekranu:
Index
|