var k,n:longint;
sn:real;
begin
readln(k);
n:=0;
sn:=0;
repeat
inc(n);
sn:=sn+1/n;
until sn>k;
writeln(n);
end.
Wikioi 1007
最新推荐文章于 2014-08-28 21:31:00 发布
var k,n:longint;
sn:real;
begin
readln(k);
n:=0;
sn:=0;
repeat
inc(n);
sn:=sn+1/n;
until sn>k;
writeln(n);
end.