8.3.. Naći sumu brojeva u intervalu od a do b djeljivih sa 5.

Listing programa:

REM p08312046
CLS
PRINT "Od broja: ";
INPUT a
PRINT "Do broja: ";
INPUT b
S = 0
I = a
DO
  IF I MOD 5 = 0 THEN
    S = S + I
  END IF
  I = I + 1
LOOP UNTIL I > b
PRINT "Suma djeljivih sa 5 u intervalu od a do b je "; S
END

Ispis na ekranu:

Index