Объём сообщения = 114688 битов (14*1024*8)
114688/28672 = 4 бита тратится на 1 символ
По формуле мощности алфавита 2⁴= 16
Ответ: 16 символов - мощность алфавита
Program sum;
var <span>
x: array[1..30] of real;</span>
<span>i, k: integer;
s:real;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(</span>Exp(Ln<span>(i) </span>/ 3))<span>
if x[i]>0
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln('summa=',s);
writeln('kolvo elementov=', k);
readkey;
end.</span>
program z1;
uses crt;
var n,m,i:integer;
begin
repeat
writeln('Введите числа');
readln(n,m);
until n<m;
for i:=n to m do
begin
if i mod 2 =0 then write(i:4);
end;
end.