подсчет едениц из двоичного числа, для VOLVO Опции

[zetsokol]

Вот код программы но он считает не правильно

var
  X, i, n: Integer;
begin
  Readln(X);

  n := 0;
  for i := 0 to 15 Do
    if (($0001 shl i) and X) <> 0 then inc(n);

  writeln(n);
end.

[volvo]

zetsokol, специально для тебя - повторяю:
"00111011"(2) = 59(10)

Вводишь в мою программу число 59 и получаешь 5... Не может Паскаль работать с числами в системе счисления 2... Если тебе надо было нечто другое - нужно было ПРАВИЛЬНО задавать вопрос, а не утверждать, что программа работает неверно.