Eveil 2013-08-06 04:59:00
点我顶贴
收藏
删除
program yc(input,output);
var
n,i,k:longint;
a:array[1..100000]of longint;
sum:real;
begin
read(k);
for i:=1 to 80000 do
begin;
sum:=1/i+sum;
while sum>k do begin
writeln(i);
halt;
end;
end;
end.
#2 1014511821@2014-08-02 01:21:52
32741
回复
删除
var
s:real;
n,k,i:longint;
begin
readln(k);
s:=0;
i:=1;
while s<=k do
begin
s:=s+(1/i);
inc(i);
end;
writeln(i-1);
readln;
end.
我的程序是这样的