Регистрация
Daryanaa7
28.02.2021 17:40
Информатика
Есть ответ 👍

Нужно сделать pascal нужно посчитать количество единичных битов числа 14

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

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

дывавып
дывавып
4,6(34 оценок)
Var n, count: byte; begin readln(n); count : = 0; count : = count + n mod 2; n : = n div 2; count : = count + n mod 2; n : = n div 2; count : = count + n mod 2; n : = n div 2; count : = count + n; writeln(count) end.
Парень1231
Парень1231
4,4(66 оценок)
4) манекен в магазине

Популярно: Информатика