у двійковій системі числення та підрахувати кількість одиниць у даному числі.

Дано число. Представити його у двійковій системі числення та підрахувати кількість одиниць у даному числі.

Реалізувати дану задачу можна за допомогою двох опереаторів mod (0 чи 1) та div для переходу до обчислення наступної цифри числа. Алгоритм представляємо у вигляді циклу з післяумовою а=0.

program dv_1;
uses crt;
var a,b,n,count:integer;
    dv:array [1..100] of real;

begin
    writeln('Ââåä³òü ÷èñëî:');
    read(a);
    repeat
    b:=a mod 2;
    if b=1 then
    begin
      count:=count+1;
      n:=n+1;
      dv[n]:=1;
    end
     else
    begin

      n:=n+1;
      dv[n]:=0;
    end;
    a:=a div 2;
    until a=0;
writeln('');
    repeat
      write(dv[n]);
      n:=n-1;
   
    until n=0;
    writeln('');
    writeln( count);

repeat until keypressed;
end.