Точная степень двойки (Pascal)

AvariItigail

25 апреля 2016

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

Операцией возведения в степень пользоваться нельзя!

Входные данные
Вводится натуральное число.

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal

var
  a, i, s, f: integer;

begin
  read(a);
  s := 1;
  for i := 1 to 1000 do
  begin
    if (s = a) then 
    begin
      f := 79;
      writeln('YES');
    end;
    s := s * 2;
  end;
  if (f <> 79) then 
    writeln('NO');
end.