Файл размером 162 Мбайт передаётся через некоторое соединение за 3 минуты. Определи размер файла (в Мбайт), который можно передать через это же соединение за 480 секунд.
1. После получения сообщения о номере пути был сделан выбор 1 из 8, т.е. неопределенность информации о номере пути уменьшилась в 8 раз. Логарифм по основанию 2 от 8 равен 3, следовательно мы получили 3 бита информации.
2. от 10 до 16
3. 6 бит
4. 30*70=2100 2100*5=10500
5. По формуле 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ). 2^b>=256 b=8 бит=1 байт на символ 1/32 мб=32 кб=32768 байт Так как каждому байту соответствует 1 символ, ответ 32768. ответ: 32768
6. Запишем условие: К=2048, I-1/512 Mб, i-? решение: из формулы I=K*i выразим i - i=I/K выразим информационный объем I в битах: I=1/512*1024*1024*8=16384 бит вычислим i=I/K=16384/2048=8 бит если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256) ответ : 256
В этой проге 1,2,3 program p1; uses crt; var a:array [1..10] of integer; i,k,s,p,min,max,k2:integer; begin P:=1; s:=0; for i := 1 to 10 do begin a[i]:= random(31); write(a[i]:4); end; writeln; min:=a[1]; max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin min:=a[i]; k:=i; end;
s:=a[i]+s; p:=a[i]*p;
If max<a[i] then max:=a[i]; K2:=i; end; writeln('МИнимальное число:',min,' номер :',k); writeln('Сумма :',s,' Произведение :',p); for i:=1 to 10 do begin If a[i] <> max then write(a[i]:3) else write(' 999'); end; writeln; writeln('Максимальное число :',max,' номер ',k2); end.
Вот 4; program p2; uses crt; var a:array [1..10] of integer; i,p:integer; begin P:=1; for i := 1 to 10 do begin a[i]:= random(60)-30; write(a[i]:4); end; writeln; p:=1; for i:=1 to 10 do begin If a[i] < 0 then p:=p*a[i]; ; end; writeln('Произведение :',p); end.
3 минуты=180 секунд
162Мб=180сек
х Мб=480сек
Умножим крест на крест:
77760=180х
х=77760/180=432 Мб
ответ:432