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

Question

Информатика

Андриан

24 декабря, 00:00

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

+5

Ответы (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.