Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
Program zzadani;
Var n,b,a,c:integer;
Begin
Writeln('Введите трехзначное число');
Readln(n);
a:=n div 100;
b:=(n div 10) mod 10;
c:=(n mod 100) mod 10;
n:=a+b+c;
Writeln('Сумма цифр данного числа=',n);
End.
1) 2^N = 1000 --> N =10 бит для кодирования одного ученика
2) 180 : 20 = 9 байт для одной команды =9*8 =72 бита
3) 72 - 8 =64 бит для всех учеников в одной команде
4) 64бит :10 бит = 6 учеников в одной команде.
Проверка:
6*10 +8 =68 бит для одной команды : 8 = 9 байт для одной команды
9*20 =180
Ответ: 1) 6
21=1*2⁴+0*2³+1*2²+0*2¹+1*2⁰=10101
Как я понимаю
Пусть
Б-0
Ч-1
001001000