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

Предыдущий
вопрос Следующий
вопрос

program CountOnesInBinary;
var
num, count, i: integer;
begin
writeln('Введите число меньше 16: ');
readln(num);
if num < 16 then
begin
count := 0;
for i := 1 to 4 do
begin
if num mod 2 = 1 then
count := count + 1;
num := num div 2;
end;
writeln('Количество единичных битов в двоичной записи: ', count);
end
else
writeln('Число должно быть меньше 16');
end.

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