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

Listing programa:

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

II Verzija
REM p08312004;
CLS
PRINT "Do broja: ";
INPUT N
S = 0
I = 1
DO
  S = S + I
  I = I+2 
LOOP UNTIL I > N
PRINT "SUMA NEPARNIH BROJEVA DO "; N; " je "; S
END

Ispis na ekranu:

Index