Const n=10;
Var a,b:array[1..n] of integer;
i:integer;
Begin
Randomize;
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(a[i],' ');
end;
Writeln;
Writeln('Отрицательные элементы массива: ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
b[i]:=a[i];
Write(b[i],' ');
end;
end;
<span>end.</span>
1. 8 символов
2.n = 2^i
64 = 2^i
i = 6
V = simvoly * i = 6 * 2000 = 12 000 bit
3.Для кодирования одного из 16 символов требуется log(2)16 = 4 бита (2^4=16).
Объем сообщения = 2048*4 бит = 2048*4/8 байт = 1024 байт = 1024/1024 Кбайт = 1 Кбайт
Надеюсь, что всё правильно.
I=0;
S=0;
Подставляем эти значения в формулу
I=0+1;
S=0+1*1=1
program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
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>