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

[fasty]

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

[Serge_Bliznykov]

а что вызывает трудности?
1)Берёте код символа, (в паскале это через ord(Символ) делается
2) обнуляем счётчик единиц
3) проверяем код симвлда на нечётность - если нечётное - увеличиваем счётчик единиц на 1.
4) целочисленно делим код на два (или, что тоже самое, сдвигаем число вправо на 1 разряд)
5) если полученное число не равно нулю - перейти к п.3)
6) выводим содержимое счётчика единиц, при необходимости проверяем/сообщаем чётное это число или нет..
7) конец

[f.hump]

unsigned symbol;

int zero_count(0), uni_count(0);

for (;;) {    
    zero_count++
    uni_count += symbol % 2;

    if ((symbol /= 2) == 0) break;
}

zero_count -= uni_count;

[veniside]

var
  c: char;
  u: word;
begin
  read(c);
  u := ord(c);
  //
  u := u xor (u shr 8);
  u := u xor (u shr 4);
  u := u xor (u shr 2);
  u := u xor (u shr 1);
  //
  if (1 = u and 1) then
    writeln('нечетное')
  else
    writeln('четное');
end.

http://ideone.com/BNAD9

[waleri]

Давайте поизвращаемся:
http://graphics.stanford.edu/~seande...ntBitsSetNaive