Число -41(10)=11010111(2)
Поскольку я помню, заходишь в файл, создать, console application
var r:integer;
begin
randomize;
r:=random(101);
write(r);
end.
Делим на 2, записываем остатки
307 | 153 ост 1
153 | 76 ост 1
76 | 38 ост 0
38 | 19 ост 0
19 | 9 ост 1
9 | 4 ост 1
4 | 2 ост 0
2 | 1 ост 0
1
Выписываем 1 и все остатки снизу вверх: 100110011.
В двоичном представлении 5 единиц.
Если(условие)
{
команды
}
Если условие истинно, то выполняются команды, иначе же(если условие ложно), они не выполнятся.