алг
нач
цел n, k
ввод n
k := 0
нц пока n > 1
k := k + 1
если mod(n, 4) = 0 то
n := div(n, 4)
все
кц
если k < 4 то
вывод k
иначе
вывод mod(k, 4)
кон |
var n, k: integer;
begin
readln(n);
k := 0;
while n > 1 do
begin
k := k + 1;
if n mod 4 = 0 then
n := n div 4;
end;
if k < 4 then
write(k)
else
write(k % 4)
end. |