12.5.. Napisati program koji će za učitanu vrijednost N i zračunati vrijednost izraza i ispisati:

Opis rješenja: Treba imati na umu da su ovo dvije sume. Svaki sabirak (razlomak) ima uvećanje sume s1 za recipročnu vrijednost novog broja. Suma svih članova je je 1 + recipročna vrijednost svakog sabirka s1.

Listing programa:

REM 12500043
PRINT "Do kog broja ";
INPUT n
s = 1
s1 = 0
FOR i = 2 TO n
    s1 = s1 + 1 / i
    s = s + 1 / s1
NEXT i
PRINT "Suma je "; s
END

Ispis na ekranu:

Index