level 1
编写程序实现输入已知整数N，计算：1+1/2+1/3+…+1/N的值。(保留6位小数)
2017年12月24日 03点12分
1
level 6
var a,N:integer;
b:real;
begin
while 1=1 do
begin
write('输入一个数：');
readln(N);
a:=1;
b:=0;
while a<N do
begin
b:=b+1/a;
a:=a+1;
end;
writeln(b:0.6);
end;
end.
2017年12月24日 13点12分
2
level 1
progream zhe_bu_shi_yi_ge_nan_ti;
var
n,i:longint;
sum:double;
begin
readln(n);
sum:=0;
for i:=1 to n do
sum:=sum+1/i;
writeln(sum:0:6);
end.
没编译呵呵……
2018年01月05日 09点01分
3