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

Listing programa:

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

Ispis na ekranu:

Index