pascal编程:求1+1⼀2+1⼀3+1⼀4.......+1⼀100的和！！！速求！！

每次加一个就输出？

==============for循环版本==================
var i:integer;
d:double;
begin
d:=0;
for i:=1 to 100 do
begin
d:=d+1/i;
write(d,' ');
end;
end.
==============while循环版本==================
var i:integer;
d:double;
begin
d:=0;i:=0;
while i<100 do
begin
inc(i);
d:=d+1/i;
write(d,' ');
end;
end.
==============repeat循环版本==================
var i:integer;
d:double;
begin
d:=0;i:=0;
repeat
inc(i);
d:=d+1/i;
write(d,' ');
until i>100;
end.
==========================================
如果是只输出一个结果把write语句放到最后一个end前即可

每次加一个就输出？
==============for循环版本==================
var
i:integer;
d:double;
begin
d:=0;
for
i:=1
to
100
do
begin
d:=d+1/i;
write(d,'
');
end;
end.
==============while循环版本==================
var
i:integer;
d:double;
begin
d:=0;i:=0;
while
i<100
do
begin
inc(i);
d:=d+1/i;
write(d,'
');
end;
end.
==============repeat循环版本==================
var
i:integer;
d:double;
begin
d:=0;i:=0;
repeat
inc(i);
d:=d+1/i;
write(d,'
');
until
i>100;
end.
==========================================
如果是只输出一个结果把write语句放到最后一个end前即可