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

Listing programa:

REM p08312011;
CLS
PRINT "Do broja: ";
INPUT N
S = 0
I = 1
DO
  IF I MOD 7 = 0 THEN
    S = S + I
  END IF
  I = I + 1 
LOOP UNTIL I > N
PRINT "SUMA PRIRODNIH BROJEVA DJELJIVIH SA 7 DO "; N; " je "; S
END

Ispis na ekranu:

Index