Дано:
N = 34 символа.
n = 10 страниц.
x = 30 строк.
y = 15 символов.
Найти: V.
N = 2^i, где
N - мощность алфавита;
i - количество бит на символ.
V = K * I, где
V - объем;
K - количество символов в сообщении;
K = n * x * y, где
n - количество страниц;
x - количество строк на странице;
y - количество символов в строке.
K = n*x*y = 10*30*15 = 4500 символов в сообщении.
N = 2^i.
34 = 2^i.
I = 6 бит (не можем взять 5 бит, так как 32 < 34. Округляем в большую сторону).
V = K * I = 4500 * 6 = (27000 бит)/8 = 3375 байт.
Ответ: 3375 байт.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.
512 байт= 4096 бит=0,5 Кбайт
Var A: array[0..100] of integer;