先转换二进制
找到第一个满足其后至少有一个1的0，然后将这个0改成1，接着把剩下的数按照0在前1在后的顺序覆盖在原来的数上
以样例为例
78转换成1001110
1001110找到左数第三位的0（最后一位的0右面没有1），这个0及它右面的数字中共有2个0和3个1
将这个0改成1（变成1011110）
这时剩下2个0和2个1（用了一个1）
再按照0011的顺序覆盖最后四位（变成1010011）
如果是1000这样的数就当作01000处理，结果是10000

附程序：
{
 Problem: An Easy Problem
 Writer: sqybi
 Date: 2007-01-06
 Result: Unknown
}
Program pku2453;
Var
  n, l, i, j, k1, k0, k: Longint;
  a: Array[1..200]Of Longint;

Begin
  ReadLn(n);
  While n <> 0 Do Begin
    l := 0;
    FillChar(a, SizeOf(a), 0);
    While n <> 0 Do Begin
      Inc(l);
      a[l] := n Mod 2;
      n := n Shr 1;
    End;
    Inc(l);
    k1 := 0;
    k0 := 0;
    For i:=1 To l Do Begin
      If a[i] = 1 Then
        Inc(k1)
      Else
        Inc(k0);
      If (a[i] = 0) And (k1 <> 0) Then Begin
        a[i] := 1;
        Dec(k1);
        For j:=1 To k1 Do a[j] := 1;
        For j:=k1+1 To k1+k0 Do a[j] := 0;
        Break;
      End;
    End;
    k := 1;
    For i:=1 To l Do Begin
      n := n + a[i] * k;
      k := k * 2;
    End;
    WriteLn(n);
    ReadLn(n);
  End;
End.

• Re:这个算法为什么WA？ (1212) ACrun 2007-01-16 12:12:27
  • 这个算法应该是对的…… (0) ACrun 2007-01-16 12:12:56