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

Ответы 1

  • Var A,N:longint;BeginWrite('N = ');ReadLn(N);if N mod 2 = 0 then   Begin   A:=1;   While A<N do      A:=A*2;   if A=N then Write('YES')   else Write('NO')   Endelse Write('NO')End.
    • Автор:

      floyd92
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years