Если вагонов 8 = 2³, то сообщение о выборе любого вагона несет 3 бита информации.
Сообщение о том, что не выбран конкретный вагон означает, что выбран любой из семи оставшихся и оно несет информацию в размере ㏒₂(8/7) ≈ 0.193 бит
1) 1+3=4 (2)
2) 4*2=8 (1)
3) 8*2=16 (1)
4) 16+3=19 (2)
5) 19*2=38 (1)
В ответе пишешь : 21121
Program circle;
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.
Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
В 16 системе счисления каждая цифра несет 4 бита информации, тк
N = 2^i
16 = 2^i
i = 4
