Сообщение занимает 5 страницы по 20 строк, в каждой строке записано по 40 символов. Информационный объём всего сообщения равен 2000 байт. Каков информационный вес одного символа? Сколько символов в алфавите языка, на котором записано сообщение?
:D Ну го Ничего если на паскале напишу ? uses crt; var a:array[1..50] of integer ;i,j,n,x,t,k:integer;b:string; begin read(n); for i:= 1 to n do begin a[i]:=random(15); write(a[i],' '); end; writeln; for i:= 1 to n-1 do for j:= i+1 to n do if a[i]> a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:= 1 to n do write(a[i],' '); writeln; read(x); for i:= 1 to n do if a[i] = x then k:=k+1; str(k,b); n:=length(b); if k in [11..19] then write (k,' раз') else if k = 0 then write('число ',x,' не встречается ')else case b[n] of '0','1','5','6','7','8','9': write (k,' раз'); '3','4','2': write (k,' раза') ; end; end.
:D Ну го Ничего если на паскале напишу ? uses crt; var a:array[1..50] of integer ;i,j,n,x,t,k:integer;b:string; begin read(n); for i:= 1 to n do begin a[i]:=random(15); write(a[i],' '); end; writeln; for i:= 1 to n-1 do for j:= i+1 to n do if a[i]> a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:= 1 to n do write(a[i],' '); writeln; read(x); for i:= 1 to n do if a[i] = x then k:=k+1; str(k,b); n:=length(b); if k in [11..19] then write (k,' раз') else if k = 0 then write('число ',x,' не встречается ')else case b[n] of '0','1','5','6','7','8','9': write (k,' раз'); '3','4','2': write (k,' раза') ; end; end.
Количество символов в сообщении
5 * 20 * 40 = 4000
Вес сообщения
2000 байт = 2000 * 8 бит = 16000 бит
Вес одного символа
16000 / 4000 = 4 бит
Количество символов в алфавите
2^4 = 16 символов
ОТВЕТ: 4 бит, 16 символов