var
  total:real;
  k,n:integer;
  a,b:array [1..1000] of real;
  c,d:array [1..1000] of integer;

procedure init;
begin
  repeat
    inc(n);
    read(b[n]);
  until b[n]=0;
  dec(n);
  a:=b;
end;

procedure print;
var
  i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      if b[i]=a[j] then d[i]:=c[j];
  for i:=1 to n do
    writeln(d[i]-1,' card(s)');
end;

procedure work;
var
  temp:real;
  i,j:integer;
begin
  for i:=1 to n do
    for j:=i+1 to n do
      if a[i]>a[j] then
        begin
          temp:=a[i];
          a[i]:=a[j];
          a[j]:=temp;
        end;
  k:=1;
  for i:=2 to 500 do
    begin
      total:=total+1/i;
      if total>a[k] then
        begin
          inc(k);
          c[k-1]:=i;
        end;
      if k>n then exit;
    end;
end;

begin
  init;
  work;
  print;
end.

• Re:我的……过……过不了……帮忙…… (54) 00130004 2004-05-11 09:19:08