POJ1003 hangover

来源:互联网 发布:淘宝代销上架宝贝图片 编辑:程序博客网 时间:2024/05/16 18:51

模拟即可。

Program POJ1003;//By_PoetshyVar k,n:Real;i:Longint;Procedure Main;beginn:=-1;while n<>0 do beginreadln(n);if n=0 then halt;i:=1;k:=0;while k<n do begininc(i);k:=k+(1/i);end;writeln(i-1,' card(s)');end;end;BEGINmain;END.