Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>
Для начала, напишем формулу как найти алфавит мощности N=2^i
N(Мощность алфавита), i(вес 1 символа т.е чему равен 1 символ в битах)
Теперь подставляем ,что нам дано в тексте в формулу
1текст 32=2^5 ; i=5 бит
2текст 1024=2^10 ; i=10бит
А как нашли, то что 32=2^5 тут всё просто, тут надо 2×2×2×2×2 будет 32 и кол.двоек означает вес 1 символа.
Теперь, чтобы найти во сколько раз нужно.
10÷5=2
Ответ:В 2 раза количество информации во втором тексте больше, чем в первом.
Ctrl+Shift+Esc Win+D Win+E Ctrl+Alt+Delete и тд