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

Question

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

Answer 1

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