А в чем трудность?
Dim i As Integer, S As Double, n As Integer
Print "Введите количество слагаемых n: ";
Input n
S = 0
For i = 1 To n
S = S + Log(i)
Next i
Print "Сумма S = " & Str(S)
End
5, 1 Мбайт= 5347737,6 байт
5347737,6 байт / 120 сек / 22050 Гц= 2,02 байт = 16 бит
16 бит
<span>var i,x,sum,ar:integer;
randomize;
For i=1 to 7 do begin
x:=random(11);
sum:=sum+x;
end;
ar:=sum/7;
</span>
1) По формуле Шеннона найдём вес одного символа в каждом тексте. В первом тексте вес одного символа равен 8, во втором - 5. Объёмы относятся так же, как и вес символов. Ответ: 1,6
2) Разберёмся с племенем Мульти. Каждый символ кодируется 5 битами, а вес сообщения в 100 символов равен 500 бит.
В племени Пульти Каждый символ кодируется таким же количеством бит, но сообщение в два раза меньше. Ответ: 2
3) 450/150=3 бита на символ