8.3.. Saberi prirodne brojeve do 100.

Listing programa:

REM suma08111015 suma prvih 100 prirodnih brojeva
CLS
I = 1
S=0
DO
  S = S + I
  I = I +  1
LOOP UNTIL I > 100
PRINT "S = "; S
END

Ispis na ekranu:

Index