задача Биты

[ochirova1960]

помогите, пожалуйста,нужно решение
Дано натуральное число N. Необходимо найти младший и старший биты двоичной записи числа N, установленные в единицу, и вывести их в десятичной системе счисления.

[Stilet]

var N:integer;
begin
 N:=123; Тут пропишешь ввод числа
 write((N and 255) and 1);
 readln;
end.

Если ничего не спутал.

[Serge_Bliznykov]

не, не согласен, ведь нужно найти самую младшую единицу и самую старшую единицу.

var N : integer;
   k, m : integer;
begin
 N:=120; { Тут пропишешь ввод числа }
 WriteLn('----------------');
 if N>0 then begin
   k := 0;
   while (((N shr k) and 1)<>1) do inc(k);
   WriteLn('младшая единица в ',k,'-м разряде ');
   m := k;
   while ((N shr (m+1))<>0) do inc(m);
   WriteLn('старшая единица в ',m,'-м разряде ');
 end
 else WriteLn('Вы ввели не натуральное число!');
 readln;
end.

p.s. нумерация разрядов справа налево, начиная от нуля.

p.p.s. что такое "вывести их в десятичной системе счисления" не совсем понял. Объясните, что это, помогу доработать код, что выводил в нужном виде.

[Arigato]

Предложу несколько иное решение:

var N : integer;
   k : integer;
begin
 N:=146; { 10010010 }
 WriteLn('----------------');
 if N>0 then begin
   k := 0;
   while N and 1 <> 1 do begin
     N := N shr 1;
     inc(k);
   end;
   WriteLn('младшая единица в ',k,'-м разряде ');
   while N > 0 do begin
     N := N shr 1;
     inc(k);
   end;
   WriteLn('старшая единица в ',k,'-м разряде ');
 end
 else WriteLn('Вы ввели не натуральное число!');
 readln;
end.

[Stilet]

не, не согласен

Ты имеешь ввиду что нужно найти не самую старшую по разряду а ту, после которой идут только нули?

[Аватар]

А что делает (N and 255) and 1 ? Просто проверяет 0-й бит. Достаточно и N and 1

ADD

Без цикла номер младшего не нулевого бита для 4-байтного

    n:=146;
    k:=0;
    if n and $FFFF = 0 then begin Inc(k,16); n:=n shr 16; end;
    if n and $FF   = 0 then begin Inc(k,8);  n:=n shr 8;  end;
    if n and $F    = 0 then begin Inc(k,4);  n:=n shr 4;  end;
    if n and $3    = 0 then begin Inc(k,2);  n:=n shr 2;  end;
    if n and $1    = 0 then       Inc(k,1);

А так можно подавить нулями все кроме младшего не нулевого

n:=n and (-n);