此题题目看了半天……才发现是水题
Program P1003;
var
a:array[0..10000] of double;
i,j:longint;
n:double;
begin
i:=1;
a[0]:=0;
while a[i-1]<5.2 do
begin
a[i]:=a[i-1]+1/(i+1);
inc(i);
end;
read(n);
while n<>0.00 do
begin
i:=0;
while a[i]<n do inc(i);
writeln(i,' card(s)');
read(n);
end;
writeln;
end.