Помогите, пожалуйста!
While5. Дано целое число N больше 0 , являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.
Решить с помощью PASCAL
While5. Дано целое число N больше 0 , являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.
Решить с помощью PASCAL
More Questions From This User See All
Answers & Comments
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.
begin
Result := 0;
var x := 1;
repeat
x *= 2;
Result += 1
until N = x
end;
begin
var N := ReadInteger();
Write(Iter(N))
end.