23 lines
323 B
Plaintext
23 lines
323 B
Plaintext
var i, n = integer
|
|
var h = real.double
|
|
|
|
print "First 20 harmonic numbers:"
|
|
h = 0
|
|
for i = 1 to 20
|
|
h = h + 1 / i
|
|
print using "## #.######"; i; h
|
|
next i
|
|
|
|
for i = 1 to 5
|
|
h = 1
|
|
n = 2
|
|
while h <= i do
|
|
begin
|
|
h = h + 1 / n
|
|
n = n + 1
|
|
end
|
|
print "First term >"; i; " is at position"; n-1
|
|
next i
|
|
|
|
end
|