23 lines
323 B
Text
23 lines
323 B
Text
|
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
|