8.3.. Izračunati sumu prirodnih brojeva u intervalu od 1 do n koji su djeljivi sa a.

Listing programa:

REM p08312011
CLS
PRINT "Do broja: ";
INPUT N
PRINT "Dijeljivi sa: ";
INPUT a
S = 0
I=1
DO
  IF I MOD a = 0 THEN
    S = S + I
  END IF
  I = I + 1
LOOP UNTIL I > N
PRINT  S
END

Ispis na ekranu:

Index