8.1.. Naći sumu brojeva u intervalu od a do b djeljivih sa 5 i koliko ih ima.

Listing programa:

REM 08112078
CLS
INPUT "Unesite 2 broja"; a, b
s = 0
br = 0
FOR i = a TO b
IF i MOD 5 = 0 THEN 
 s = s + i
 br = br + 1
ENDIF
NEXT i
PRINT "Od", a, "do", b, "suma brojeva djeljivih sa 5 je:", s
PRINT "Od", a, "do", b, "ima", br, "djeljivih sa 5"
END

Ispis na ekranu:

Index