12 lines
216 B
Text
12 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));
|