var n, k :integer;Begin read(n); k := 0; while (n mod 2 = 0) begin k := k + 1; n := n div 2; end; writeln(k);End.
var n, k :integer;
Begin
read(n);
k := 0;
while (n mod 2 = 0) begin
k := k + 1;
n := n div 2;
end;
writeln(k);
End.