8.2.. Saberi parne prirodne brojeve do 100.

Listing programa:

REM P8111016 suma parnih brojeva do 100
CLS
I = 1
S=0
WHILE I <= 100
  IF I mod 2 = 0 THEN 
     S = S + I
  ENDIF
  I = I +  1
WEND
PRINT "S = "; S
END

Ispis na ekranu:

Index