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

Listing programa:

REM p08212046
CLS
PRINT "Od broja: ";
INPUT a
PRINT "Do broja: ";
INPUT b
S = 0
I = a
WHILE I <= b
  IF I MOD 5 = 0 THEN
    S = S + I
  END IF
  I = I + 1
WEND
PRINT "Suma djeljivih sa 5 u intervalu od a do b je "; S
END

Ispis na ekranu:

Index