подсчет едениц из двоичного числа, для 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,
правда? Может это не код, а ты неправильно считаешь? Я уже говорил, повторяю СПЕЦИАЛЬНО для тебя: я НЕ ПРИНИМАЮ возражения в такой форме !!! Приведи пример, который ты пробовал (и данные, которые вводил), и то, что ты ХОЧЕШЬ получить, и что получил... Иначе, извини, я ничем помочь тебе не могу...

Вот результат прогона:

0
0

7
3

127
7

А вот теперь ТЫ докажи мне, что программа неправильно работает !!!