Двойка

[Pascal.t]

Подскажите пожалуйста
как очень быстро узнать сколько раз 2 входит в число

for j:=1 to h do
if i mod 2 = 0 then begin inc(k); i:=i div 2 end

не подходит

input | output
8 | 3
12 | 2

[iBuTTHead]

str(chislo,stroka);
for i:=1 to length(stroka) do
    if stroka[i]='2' then
            k:=k+1

[Pascal.t]

Сообщение от iBuTTHead

str(chislo,stroka);
for i:=1 to length(stroka) do
    if stroka[i]='2' then
            k:=k+1

Да нет,
нужно найти количество раз деления числа на двойку
8=2*2*2*
12=2*2*3
16=2*2*2*2*2*2
18=2*9

[iBuTTHead]

uses crt;
var
   a:word;
begin
clrscr;
Read(a);
Write(a div 2);
readkey
end.

[NioTo]

while number mod 2 = 0 do begin
number := number div 2;
inc(counter);
end;