Question

Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае. Операцией возведения в степень пользоваться нельзя!

Answer 1

Var A,N:longint;
Begin
Write('N = ');ReadLn(N);
if N mod 2 = 0 then
   Begin
   A:=1;
   While A<N do
      A:=A*2;
   if A=N then Write('YES')
   else Write('NO')
   End
else Write('NO')
End.