Составить программу в паскаль: дано число меньше 16 определить - сколько единичных битов содержит двоичная запись этого числа.

193

440

Посмотреть ответы 2

Ответы на вопрос:

Катюня85

Информатика

4,4(62 оценок)

Var b,a,c,kol: integer; begin writeln('введите число в десятичной системе счисления'); readln(a); kol: =0; while(a> =2) do begin c: =a div 2; b: =2*c; b: =a-b; writeln(b); a: =c; if a< 2 then writeln(a); if a > 0 then kol: =kol+1; end; writeln('количество 'kol); end.

serega228002

Информатика

4,5(78 оценок)

Делишь число 75 на в столбик. и ответ будет записываться снизу вверх, в итоге, получается 110011. т.е. количество нулей в двоичной записи данного числа, будет равно двум.