8.1.. Napisati program za izračunavanje sume niza:
1 - 1/2 + 1/3 -+ ... -+ 1/n

Listing programa:

REM 12573001
CLS
INPUT n
s = 0
FOR i = 1 TO n
  IF i MOD 2 = 1 THEN
    s = s + 1 / i
  ELSE
    s = s - 1 / i
  END IF
NEXT
PRINT s
END

Ispis na ekranu:

Index