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

Question

Информатика

Полинарий

24 июня, 22:47

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

+1

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