8.2.. Saberi prirodne brojeve do 100.

Listing programa:

REM suma08111015 suma prvih 100 prirodnih brojeva
CLS
I = 1
S=0
WHILE I <= 100
  S = S + I
  I = I +  1
WEND
PRINT "S = "; S
END

Ispis na ekranu:

Index