Решение 50 типовых задач по программированию на языке Pascal Дата размещения сборника в сети

n 
на 2: 
count := count + n mod 2; 
Строго говоря, мы могли бы не прибавлять предыдущее значение переменной count к 
остатку от деления, так как оно все равно было нулевым. Но мы поступили так для того, 
чтобы сделать код более однородным, далее это будет видно. Учтя разряд единиц в двоич-
ной записи n, мы должны отбросить его, чтобы исследовать число далее. Для этого разде-
лим n на 2. На языке Pascal это будет выглядеть так: 
n := n div 2; 
4) 
Теперь нам нужно еще два раза повторить 
п. 3 , после чего останется единственный дво-
ичный разряд числа n, который можно просто прибавить к счетчику без каких-либо допол-
нений:
count := count + n; 
5) 
В результате в переменной count будет храниться количество единичных разрядов в дво-
ичной записи исходного числа. Осталось лишь вывести ее на экран. 
Код:
1.
program BinaryUnits; 
2.
3.
var 
4.
n, count: byte; 

---

Данил Душистов: «Решение 50 типовых задач по программированию на языке Pascal» 
7 
5.
6.
begin 
7.
readln(n); 
8.
count := 0; 
9.
count := count + n mod 2; 
10.
n := n div 2; 
11.
count := count + n mod 2; 
12.
n := n div 2; 
13.
count := count + n mod 2; 
14.
n := n div 2; 
15.
count := count + n; 
16.
writeln(count) 
17.
end. 
Программа работает правильно на всех вариантах правильных исходных данных, в чем не-
сложно убедиться с помощью простой проверки. 
Глава 2. Условные операторы 
Задача № 6. Вывести на экран наибольшее из двух чисел 
Формулировка. Даны два числа. Вывести на экран то из них, которое больше.