var
a:array [1..20] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(101)+100;
write (a[i],' ');
end;
writeln;
s:=0;
for i:=1 to 20 do
if odd(a[i])=false then s:=s+a[i];
writeln (s);
readln;
end.
Рабочий стол)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
K=320 с
i=8 бит/с
I - ?
I=K*i=320 с * 8 бит/c = 320 c * 1 байт/с = 320 байтов
Дан алфавит с N символоми.
Для начала, нужно определить мощность алфавита (I). Это количество бит информации на 1 символ этого алфавита. Суть в том, чтобы каждой букве алфавита (включая плобельные символы и знаки препинания) поставить в соответствие уникальное двоичное число, которое будет кодом этой буквы. Это можно сделать по формуле (скобки в формуле - округление к большему)
Если затем перемножить количество символов в сообщении (М) на вес одного символа (I), получим вес сообщения.