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

Question

Информатика

Лия

28 июля, 07:01

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

+1

Ответы (1)

Знаете ответ на вопрос?

Димуша · Answer 1

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.