Вводится число. Напечатать YES, если оно является степенью двойки, NO - иначе. Ввод 1 8 Вывод 1 YES Ввод 2 22 Вывод 2 NO

program zz1;

var n:real; / / задаем переменную нецелого типа

p:integer; / / задаем переменную целого типа

begin

write (' введите натуральное число ');

read (n); / / вводим с клавиатуры число

while n>2 do / / организуем цикл пока

begin

n:=n / 2; / / делим число пополам

if (n = 1) or (n = 2) then p:=1; / / проверяем, если в конце цикла получилась двойка или единица, то запоминаем это

end;

if p = 1 / / проверяем, если нашлось

then writeln (' YES ') / / выводим один ответ

else writeln (' NO '); / / иначе, выводим другой ответ

end.