СРОЧНО НУЖНО СДЕЛАТЬ
10-11 класс
|
pascal нужно посчитать количество единичных битов числа 14
Rabiyasultan
06 марта 2017 г., 3:32:55 (7 лет назад)
Aygelidrisova
06 марта 2017 г., 4:57:07 (7 лет назад)
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.
Ответить
Другие вопросы из категории
ПОМОГИТЕ СРОЧНО НАПИСАТЬ ПРОГРАММУ пусть дано 100 вещественных чисел,которые вводятся по одному.Найдите количество положительных,отрицательных и
нулевых элементов.
Читайте также
Вы находитесь на странице вопроса "СРОЧНО НУЖНО СДЕЛАТЬ", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.