Размерность в битах...

[Masip]

Здравствуйте!Подскажите пожалуйста как узнать размерность числа в битах?

[Stilet]

8,16,32,64 бита
Или ты имеешь ввиду узнать позицию последнего нуля если идти от самого последнего бита вправо?
Что-то вроде этого:

   var e,k,j,i:integer;
begin
 i:=4;k:=word(-1);e:=0;
 while k>0 do begin
  if (k and i)=0 then break
  else k:=k shr 1;
  inc(e);
 end;
 write(e);
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

[Masip]

объясни пожалуйста логику работы shr?
и какой ответ нас ждет в этом примере?

[Masip]

А как программно получить случайное число заданного размера бит?в моем случае надо 1024!