> I could not see its means.
> what it said? ?
通过了，代码如下...像是白痴一样的计算...
program hangover;
var
sum,c:extended;
m,n:integer;
begin
m:=1;
while m<>0 do
begin
c:=0;
readln(c);
if c=0.00 then exit;
sum:=0;
n:=0;
Repeat
 sum:=sum+1.0/(n+2);
 n:=n+1;
Until sum>=c;
writeln(n,' card(s)');    
end;
end.