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.