18 lines
331 B
ObjectPascal
18 lines
331 B
ObjectPascal
function H(n: integer): real := (1..n).Sum(i -> 1/i);
|
|
|
|
begin
|
|
for var i:=1 to 20 do
|
|
Println($'{i,2}: {H(i),10:f8}');
|
|
var i := 1;
|
|
var num := 1;
|
|
while num < 11 do
|
|
begin
|
|
if H(i) > num then
|
|
begin
|
|
Println('Position of the first harmonic number >',num,':',i);
|
|
num += 1;
|
|
end;
|
|
i += 1;
|
|
end;
|
|
end.
|