Двоичное представление Опции

[Dexoid]

Вот есть такая задача: Необходимо переписать из одного файла в другой все числа, двоичное представление которых содержит больше единиц чем нулей. Как представить числа в двоичной системе на Паскаль? Переписать из одного файла в другой, где нибудь здесь есть пример подобной задачи, что то не нашёл. С файлами вообще плохо..

[andriano]

Числа в современных компьютерах уже хранятся в двоичном представлении. Подсчитать количество единиц и нулей можно примерно так:

repeat
  if (MyNumber and 1) = 1 then
    inc(NumberOfOne)
  else
    inc(NumberOfZero); 
  MyNumber := MyNumber shr 1;
until MyNumber = 0;

Сообщение отредактировано: andriano - 22.12.2007 3:56