Ввести число. Определить является ли оно степенью 2.

[Roman1295]

var x :integer;   i :real; 
begin
readln(x);
i:=x;
While (true) do
i:=i/2;
If i=2 then  write(i,'- cтепень числа 2');
end.

Что-то намудрил, не пойму, что именно, прошу помощи.

[Stilet]

var e,x :integer;   i :real; 
begin
readln(x);e:=2;
for i:=1 to 10 do begin
 If e=x then  begin write(i,'- cтепень числа 2');break;end;
 e:=e*2;
end;
end.

Подходит?

[Roman1295]

Сообщение от Stilet

var e,x :integer;   i :real; 
begin
readln(x);e:=2;
for i:=1 to 10 do begin
 If e=x then  begin write(i,'- cтепень числа 2');break;end;
 e:=e*2;
end;
end.

Подходит?

Под условие задачи не совсем подходит, надо использовать цикл по условию обязательно. А за код спасибо.

[Poma][a]

while n mod 2 = 0 do
    n := n div 2;

WriteLn (n=1)