Сколько единиц в двоичной записи десятичного числа 519? 1) 5. 2) 2. 3) 3. 4) 4.

4 единицы

двоичная запись числа 1000000111

чтобы перевести десятичное число в двоичную систему счисления нужно данное число делить на 2, пока оно не поделится без остатка, а далее,записать полученное число в двоичной системе счисления справо на лево.. сейчас покажу как. начинаем деление: 1- 519: 2=259 (остаток 1).

2- 259: 2=129 (остаток 1).

3- 129: 2=64 (остаток 1).

4- 64: 2=32 (остаток 0).

5- 32: 2=16. (остаток 0).

6 - 16: 2=8 (остаток 0).

7- 8: 2=4 (остаток 0).

8- 4: 2=2. (остаток 0).

9 - 2: 2=1. (остаток 0).

записываем: 1000000111.

то есть, 519 в десятичной системе счисления равен 1000000111 в двоичной системе счисления.

в нужно узнать сколько единиц в записи числа, получаем что 4. (вариант 4).

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию const       n = 2016; var       a: array[1..n] of integer;       i, m, k: integer; begin       for i : = 1 to n do       begin //              a[i] : = random(10000);                               readln(a[i]);       end;             m : = 0;       for i : = 1 to n do               if (a[i] mod 16 = 11) and (a[i] > m) then                       m : = a[i];             writeln(m); end.

Const n=4; m=5; var  a: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(90)+10;     if a[i,j] mod 2 = 0 then a[i,j]: =a[i,j]+1;     write(a[i,j]: 4);   end;   writeln;   end; k: =0; for i: =1 to n do   for j: =1 to m do   if (a[i,j] div 10 + a[i,j] mod 10) = 7 then k: =k+1; writeln('k = ',k); end. пример: исходный массив:   41   31   85   25   11   71   29   55   43   79   87   67   23   97   27   55   55   25   69   35 k = 3