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.

Answer 2

Для нахождения номера старшего бита в двоичном представлении целого положительного числа в Паскале, вы можете воспользоваться следующим кодом:

pascalCopy code
program FindMostSignificantBit;
var
  num, msb, bitPos: Integer;
begin
  writeln('Введите целое положительное число:');
  readln(num);

  msb := 0; // Инициализируем переменную, в которой будет храниться номер старшего бита

  // Находим номер старшего бита
  bitPos := 0;
  while num > 0 do
  begin
    msb := bitPos;
    num := num div 2;
    bitPos := bitPos + 1;
  end;

  writeln('Номер старшего бита: ', msb);
end.

В этом коде мы сначала считываем положительное целое число с клавиатуры, затем находим номер старшего бита с помощью цикла while. Как только число становится равным 0, цикл завершается, и в переменной msb остается номер старшего бита. Номер старшего бита начинается с 0 для самого младшего бита и увеличивается на 1 с каждым старшим битом.