Задано целое число N. Определить, является ли оно бинарным

@RamPG · Регистрация: 20.02.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте, попалась данная задачка:
Задано целое число N. Требуется определить, является ли оно бинарным.
Не смог найти решение и просмотрел решение и увидел данный код.

Delphi

var n: Integer;
begin
 
  read (n);
  if n and (n-1)=0 then WriteLn('YES') else WriteLn('NO');
  readln;readln;
end.

Не могу понять строчку с if. Как n и n-1 может равняться нулю, если у нас идет число больше 1 как минимум. Объясните, пожалуйста.

@qwertehok · 08.03.2018, 07:29

Сообщение от RamPG

просмотрел решение и увидел данный код.

Сообщение от RamPG

Объясните, пожалуйста.

то есть код нашел ты, а объяснять должен другой?

@droider · 08.03.2018, 11:22

Сообщение от RamPG

является ли оно бинарным

Сообщение от RamPG

Не могу понять строчку

RamPG, а Вам слово "БИнарный" ни о чем не говорит? Приставка "би"- (от латинского - "дважды") в данном слове тоже?
Небольшой комментарий, к этому же условию, есть здесь.

В остальном:

Бинарные числа - это числа из двоичной системы счисления, имеющей основание 2.
Любое число, сколь бы большим оно ни было, в двоичной системе записывается посредством двух символов: 0 и 1. Допустим число $https://www.cyberforum.ru/cgi-bin/latex.cgi?{25}_{10}={00011001}_{2}$
Т.е. чтобы проверить является ли число n бинарным, необходимо определить, является ли оно степенью 2, т.е. можно ли число 2 возвести в какую-то степень, чтобы получить число n? Если да, то число n - бинарное. В противном случае - не бинарное.

То условие, которое прописано выше,

Delphi

1	...n and (n-1) =0...

использует для этого битовые операции (логическое умножение - конъюнкция). Если не знаете, что это такое, то займитесь для начала алгеброй логики.

Например, приведенное выше число 25 не является бинарным, а число 128 (128= $https://www.cyberforum.ru/cgi-bin/latex.cgi?{2}^{7}$ ) - бинарное и т.д.

P.S. Эта же "задачка" решается еще с применением логарифмов.

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	08.03.2018, 07:29	2
	Сообщение от RamPG просмотрел решение и увидел данный код. Сообщение от RamPG Объясните, пожалуйста. то есть код нашел ты, а объяснять должен другой? 0

	08.03.2018, 11:22