Question

Помогите, пожалуйста!
While5. Дано целое число N больше 0 , являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.

Решить с помощью PASCAL

Answer 1

function F(N: integer): integer;

begin

 if N = 1 then Result := 0

 else Result := 1 + F(N div 2);

end;

begin

 var N := ReadInteger();

 Write(F(N))

end.

Answer 2

Или циклом:

Answer 3

function Iter(N: integer): integer;
begin
Result := 0;
var x := 1;
repeat
x *= 2;
Result += 1
until N = x
end;

begin
var N := ReadInteger();
Write(Iter(N))
end.