Question

Найти номер старшего бита в двоичном представлении целого положительного числа. Паскаль

Answer 1

Объяснение:

program ideone;

var

 x, i: Integer;

begin

 read(x);

 i := 0;

 while (x > 0) do

 begin

   x := x shr 1;

   inc(i);

 end;

 //нумерация с нуля

 writeln(i-1);

end.