Program n_1;
var a:array[1..1000] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(64000)-32000;
writeln (a[i],' ');
end;
end.
При использовании 256-символьного алфавита для записи одного символа требуется log(2)256 = 8 бит = 1 байт.
Количество информации в сообщении = 3072*1 байт = 3072/1024 Кбайт = 3 Кбайта
Program abc;
var a,b,c : real;
begin
writeln('Введите стороны угла через пробел:');
readln(a,b);
if a+b<180 then
writeln('3 угол = ',180-(a+b) ) else
writeln('Такого треугольника не существует.')
end.
Program m1;
Var x,n,i:integer;
begin
Readln (x,n);
For i:=1 to n do begin
x:=x*x;
end;
Write ('x=',x);
readln;
end.
Для кодирования одного из 17 символов требуется log(2)17 ≈ 5 бит.
Объем информации в письме племени Мульти = 100*5 = 500 бит.
Для кодирования одного из 32 символов требуется log(2)32 = 5 бит.
Объем информации в письме племени Мульти = 50*5 = 250 бит.
Ответ: 500 бит > 250 бит