8.1.. Aritmetička sredina parnih prirodnih brojeva od 1 do n.

Listing programa:

REM 08113015
CLS
CLS
PRINT "Aritmeticka sredina parnih brojeva"
INPUT "Do broja", n
s = 0
br = 0
FOR i = 1 TO n
  IF i MOD 2 = 0 THEN 
    s = s + i
    br = br + 1
  ENDIF
NEXT i
a = s / br
PRINT "Aritmeticka sredina brojeva od 1 do"; n; "je"; a
END

Ispis na ekranu:

Index