<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
Var i,k:integer;
a:array[1..30] of integer;
begin
for i:=1 to 30 do
begin
a[i]:=random(30)-15;
if (a[i]>0) and (a[i] mod 2 = 0) then a[i]:=a[i] div 2;
if (a[i]>0) and (a[i] mod 2 <> 0) then a[i]:=a[i]*2;
if a[i]<0 then a[i]:=a[i]*-1;
end;
for i:=1 to 30 do writeln(a[i]);
<span>end.</span>
Ответ:
N = 2^64 символов.
Объяснение:
Дано:
K = 65536 символов.
V = 512 кбайт.
Найти: N.
Решение:
Воспользуемся формулой V = K * I, где V - объем в битах, K - количество символов в сообщении, I - информационный вес одного символа. Выразим и посчитаем I:
I = V/K.
Так как объем должен быть в битах, то сразу переводим кбайты в биты, умножив значение V на 2^13. Для упрощения вычислений, представим число 65536 в качестве степени двойки:
I = (512 * 2^13)/(2^16) = (2^9 * 2^13)/(2^16) = (2^22)/(2^16) = 2^6 = 64 бита.
Теперь можем найти мощность алфавита по формуле:
N = 2^i, где N - мощность алфавита.
N = 2^64 символов.