8.3.. Napisati program za ispis sume reciprocnih vrijednosti prirodnih brojeva od k do n.

Opis programa: Početnva vrijednost sume je 0 (s := 0). Izraz za uvačavanje sume je s := s + 1/i.

REM 08312008 do until suma reciprocnih vrijednosti od k do n
CLS
PRINT "Izracunati i ispisati sumu reciprocnih vrijednosti prirodnih brojeva od k do n."
INPUT "Unesi prvi broj:", k
INPUT "Unesi drugi broj:", n
i = k
s = 0
DO
    s = s + 1 / i
    i = i + 1
LOOP UNTIL i > n
PRINT s
END

Ispis na ekranu:

Index