13 lines
216 B
Text
13 lines
216 B
Text
|
function sum(var i : Integer; lo, hi : Integer; lazy term : Float) : Float;
|
||
|
|
begin
|
||
|
|
i:=lo;
|
||
|
|
while i<=hi do begin
|
||
|
|
Result += term;
|
||
|
|
Inc(i);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var i : Integer;
|
||
|
|
|
||
|
|
PrintLn(sum(i, 1, 100, 1.0/i));
|