подсчет едениц из двоичного числа, для 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]

Попробуй вот так:

var
  s: string;
  i, count: integer;

begin
  write('n = '); readln(s);

  count := 0;
  for i := 1 to length(s) do
    if s[i] = '1' then inc(count)
    else
      if s[i] <> '0' then begin
        writeln('error: illegal input'); halt;
      end;

  writeln('count = ', count)

end.