program aasdfasf；

var a:real；b,c:longint；

begin

read(b)；

for c:=1 to 999999999 do begin

a:=a+1/c；

if a>b then begin write(c)；break；end；

end；

end.

水题不扫何以扫天下！