var i,j,k,x,y,z,tot,rj,rk:longint;
begin
  j:=1;k:=2;
  while not eof do begin
  readln(j,k);
  rj:=j;rk:=k;
  z:=0;
  if j>k then begin
    x:=j;j:=k;k:=x;
  end;
  for i:=j to k do begin
    tot:=1;x:=i;
    while x<>1 do begin
      inc(tot);
      if odd(x)then x:=x*3+1 else x:=x div 2;
    end;
    if tot>z then z:=tot;
  end;
  writeln(rj,' ',rk,' ',z);
  end;
end.

• Re:大家得文明一点， (437) StudyRush 2010-04-05 22:11:56