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

Question

Информатика

Виня

8 июня, 05:06

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

+2

Ответы (1)

Знаете ответ?

Лера · Answer 1

Var A, N:longint;

Begin

Write ('N = ') ; ReadLn (N) ;

if N mod 2 = 0 then

Begin

A:=1;

While A
A:=A*2;

if A=N then Write ('YES')

else Write ('NO')

End

else Write ('NO')

End.