Question

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

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

Answer 1

var n,p:int; begin  readln(n);  p:=1;  while p<n do p:=p*2;  if p=n thenwrite('YES')elsewrite('NO');  readln; end.