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

[Dexoid]

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

[Michael_Rybak]

количество нулей и единиц в двоичном представлении числа n можно посчитать вот так:

n0 := 0;
n1 := 1;
power_of_2 = 1;
while power_of_2 <= n do begin
  // проверяем текущий бит
  if power_of_2 and n = 0 then
    Inc(n0);
  else
    Inc(n1);
  // переходим к следующему
  power_of_2 := power_of_2 * 2;   
end;

чтобы узнать, какое число (0 или 1) стоит на, скажем, третьей позиции в двоичном представлении числа n, выполняем операцию n and 4. 4 - в двоичном представлении равно 100. Побитовая операция and, примененная к числам n и 4, обнулит все биты в n, а третий оставит без изменений.

Таким образом, если там был нуль, то n and 4 будет равно нулю, если был 1 - будет равно не нулю (4, в данном случае).

Точно так же для остальных позиций.

Поэтому мы перебираем все степени двойки, не превышающие n, и бит за битом выясняем количество нулевых и единичных.

По поводу работы с файлами - в поиск или фак или хелп.