19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
1) 1101101
2)1111111
3)1110101
4)1111010
Var s:string; k:integer;
begin
writeln('Введите строку');
readln(s);
k:=POS('_',s);
s:=COPY(s,1,k-1)+', '+COPY(s,k+1,length(s)-k);
writeln(s);
<span>end.</span>
По фоpмуле Хаpтли количество инфоpмации в битах = -log_2 p, где p --веpоятность события. Стало быть, в данном случае веpоятность вытащить зеленоеяблоко pавна 1/4. То есть 1/4 всех яблок -- зеленые (а оставшиеся 3/4 --кpасные). Следовательно, всего яблок -- 48.
100 кбайт=102400 байт=819200 бит
100 байт=800 бит
Скачалось, до сбоя:
819200/2=409600 бит
409600/175=2340,6 секунд
Ответ: 2340,6 c(39 минут)