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

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.

Comments

Или циклом:

---

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