8.1.. Napisati program za ispis aritmetičke sredine brojeva od k do n djeljivih sa l.

Listing programa:

REM 08113016
CLS
PRINT "Aritmeticka sredinh brojeva djeljivih sa l"
INPUT "k,n,l"; k, n, l
s = 0
br = 0
FOR I = k TO n
  IF I MOD l = 0 THEN 
    s = s + I
    br = br + 1
  ENDIF
NEXT I
a = s / br
PRINT "Aritmeticka sredina brojeva djeljivih sa:"; l; "je"; a
END

Ispis na ekranu:

Index