Количество единиц в двоичном представлении числа N

Serrjj

Определить, количество единиц в двоичном представлении числа N
1 ответ

Serrjj

а число n в десятичной системе?Если я правильно понял задание,то вот программа для целых чисел.
var n,i:integer;
    count:byte;
    s:string;ch:char;
begin
  writeln('введите целое число');
  readln(n);
  s:='';
  count:=0;
  for i:=1 to n do begin
    if n mod 2=0 then ch:='0'
    else begin
      ch:='1';
      inc(count);
    end;  
    s:=ch+s;
    n:=n div 2;
    if n=0 then break;
  end;
  writeln('двоичное представление ',s);
  writeln('кол-во единиц в двоичном представлении ',count);
  readln
 end.