8.2.. Napisati program za ispis sume neparnih brojeva od 1 do n

Listing programa:

REM p08212004
CLS
PRINT "Do broja: ";
INPUT N
S = 0
I = 1
WHILE I <= N
  IF I MOD 2 >< 0 THEN
    S = S + I
  ENDIF
  I = I + 1 
WEND
PRINT "SUMA NEPARNIH BROJEVA DO "; N; " je "; S
END

II Verzija
REM p08212004;
CLS
PRINT "Do broja: ";
INPUT N
S = 0
I = 1
WHILE I <= N
  S = S + I
  I = I+2 
WEND
PRINT "SUMA NEPARNIH BROJEVA DO "; N; " je "; S
END

Ispis na ekranu:

Index