Если вагонов 8 = 2³, то сообщение о выборе любого вагона несет 3 бита информации.
Сообщение о том, что не выбран конкретный вагон означает, что выбран любой из семи оставшихся и оно несет информацию в размере ㏒₂(8/7) ≈ 0.193 бит
Var
L,m:real;
Begin
Write('L = ');Read(L);
Write('m = ');Read(m);
Write('Q = ',L*m,' Дж')
End.
3Мбайт = 3*1024*8 Кбит = 24576 Кбит
24576 / 2048 = 12 сек
t = 12 сек
Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.