Привет. Вот решение.
1. Программа выведет число 5.
2. Ответ: 4. Т.к. 4^1 будет 4.
3. Т.к задание у тебя только найти их то:
С ошибкой k := k + n div 4;
Без ошибки k:= k + 1;
С ошибкой if n > 0 then
Без ошибки if n=1 then
Вот готовая рабочая программа, можешь проверить. Вводишь 16
, получаешь 2, т.к. 4∧2=16.
Если тебе будет интересно разобраться, то напиши мне в личные сообщения, я тебе объясню подробнее что и куда и в дальнейшем у тебя не будет возникать таких вопросов.
Program Robert7878;
Var n, k: integer;
Begin
read(n);
k := 0;
while n mod 4=0 do
begin
k := k+1;
n := n div 4;
end;
if n = 1 then
writeln(k)
else
writeln('Не существует')
End.