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

Question

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

Answer 1

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.