#8714: 我的代码在本机是没错的,为何放上去,一个测例也不对。


ayh929 (安安)


var
  a:integer;
  count:Integer ;
begin
  while not eof do
  begin
     readln(a);
     if(a=0)then
        Break;
     if(a mod 2=0)then
       Writeln(0)
     else
     begin
         count:=0;
         repeat
               count:=count+1;
               a:=a div 2;
         until a mod 2=0;
            writeln(count);
     end;
  end;
end.
#8720: Re:我的代码在本机是没错的,为何放上去,一个测例也不对。


abc337479871 (密碼:我DE芳齡!!學弟學妹們加油了! ↖(^ω^)↗ ...)


INT64