При заданной мощности достаточно 1 байта на символ, чтобы закодировать алфавит.
Итого получается:
1*320*384/ 1024 = ? кБайт.
4 задача:
1) 32*60*10=19200 Кбит в 10 мин
<span>2) 19200:8=2400 Кбайт в 10 мин
</span>
2 задача:
Переводом кбайты в биты: 9•1024•8=73728
73728/36=2048(бит/сек) скорость соединения
2048+1024=3072(бит/сек) - скорость нового соединения
73728/3072=24 секунды
3 задача:
256 бит в секунду = 256/8 байт в секунду = 32 байт в секунду
файл в 2 Кибайта передается за 2048/32 = 64 секунды.
другое соединение - 2048 бит/с = 256 байт/с
за 64 с передастся 256 * 64 = 16384 байта или 16 Килобайт
5-ую задачу
1 байт - 8 бит
х байт - 1024000 бит
х = 1024000/8 = 128000 байт/с (скорость передачи данных)
128000*5 = 640000 байт весит файл
1 килобайт = 1024 байт
<span>640000/1024 = 625 Кбайт весит файл
</span>
2666 битов
Точного числа нет вроде
Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить