Wikioi 1007

来源:互联网 发布:淘宝店面怎么设计 编辑:程序博客网 时间:2024/04/28 04:09
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.

0 0
原创粉丝点击