Сколько 1 в двоичном представлении десятичного числа 31​

ответ:

5

объяснение:

31=2^4+2^3+2^2+2^1+2^0

10^4+10^3+10^2+10^1+10^0=11111

Uses graphabc; procedure p1(x,y: integer); begincircle(x,y,10); floodfill(x,y,clyellow); ellipse(x-15,y+10,x+15,y+70); floodfill(x,y+20,clyellow); line(x,y+70,x-15,y+100); line(x,y+70,x+15,y+100); end; procedure p2(x,y: integer); begincircle(x,y,10); floodfill(x,y,clyellow); ellipse(x-15,y+10,x+15,y+70); floodfill(x,y+20,clyellow); line(x,y+70,x,y+100); end; var x,y,i: integer; beginx: =40; y: =100; i: =1; repeat  lockdrawing;   clearwindow(clgreen);   setpenwidth(3);   if odd(i) then p1(x,y)   else p2(x,y);   setpenwidth(10);   line(0,y+100,windowwidth,y+100);   redraw;   sleep(500);   x: =x+5;   i: =i+1; until x> =windowwidth-20; end.

var

  a,b,c: array [1..20] of integer;

  i,k,l: integer;

begin

  randomize;

  k: =1;

  l: =1;  

  writeln ('исходный массив: ');  

  for i: =1 to 20 do

    begin

    a[i]: =random(9)+1;

    if a[i] mod 2 = 0 then

      begin

      b[k]: =a[i];

      inc(k);

      end else

      begin

        c[l]: =a[i];

        inc(l);

      end;  

    write (a[i],' ');

  end;

  k: =k-1;

  l: =l-1;  

  writeln;

  writeln ('массив четных чисел');

  for i: =1 to k do write (b[i],' ');

  writeln;

  writeln ('массив нечетных чисел');

  for i: =1 to l do write (c[i],' ');

  writeln;

  readln;

end.