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