mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-05-23 05:17:35 +08:00
patacongo
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
17 lines
228 B
ObjectPascal
17 lines
228 B
ObjectPascal
{ compute h(n) = 1 + 1/2 + 1/3 +...+ 1/n }
|
|
|
|
program egfor(input, output);
|
|
|
|
var
|
|
i, n : integer;
|
|
h : real;
|
|
|
|
begin
|
|
read(n);
|
|
writeln(n);
|
|
h := 0;
|
|
for i:= n downto 1 do
|
|
h := h + 1/i;
|
|
writeln(h);
|
|
end.
|