var
  a:array[1..16] of byte;
  i,n,j,x,sum:byte;
begin
  read(a[1]);
  while a[1]<>-1 do begin
    n:=2;sum:=0;
    repeat
      read(a[n]);
      inc(n);
    until a[n-1]=0;
    dec(n);
    for i:=1 to n do
      for j:=1 to n do if a[j]=2*a[i] then inc(sum);
    dec(sum);
    writeln(sum);
    read(a[1]);
  end;
end.

• Re:那里错了？？？？？ (340) eric5518 2015-04-11 16:30:15