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

1

Ответы и объяснения

  • nemp
  • хорошист
2014-01-17T19:09:04+00:00
Program x2;
var n:longint;
begin
Write('Введите n, n = ');
Readln(n);
While n mod 2 = 0 do 
    n:= n div 2;
If n=1 then Write('YES')   
     else write('NO');
end.