Какое количество информации (в битах) несет: а) 1 буква русского алфавита (исключаем из него букву ё) …… бит б) 1 цифра двоичного кода …….. бит в)Один номер из 16 вариантов ……бит
Const nx=30; mx=30; var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer; i,j,n,m,k,sum,min:integer; begin min:=40; randomize; write('Введите n,m: ');readln(n,m); writeln('Исходная матрица: '); for j:=1 to m do begin for i:=1 to n do begin r[i,j]:=random(20)-10; sum:= sum + r[i,j];end; b[j]:=sum;sum:=0; end; for i:=1 to n do begin for j:=1 to m do begin write(r[i,j]:4);end; writeln;end; writeln; for j:=1 to m do begin write(b[j]:4); if min > b[j] then begin min:= b[j]; k:= j;end; end; writeln;writeln; for i:=1 to n do begin for j:=1 to m do begin if j=k then write(r[i,j]:4);end; writeln;end; end.
Const nx=30; mx=30; var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer; i,j,n,m,k,sum,min:integer; begin min:=40; randomize; write('Введите n,m: ');readln(n,m); writeln('Исходная матрица: '); for j:=1 to m do begin for i:=1 to n do begin r[i,j]:=random(20)-10; sum:= sum + r[i,j];end; b[j]:=sum;sum:=0; end; for i:=1 to n do begin for j:=1 to m do begin write(r[i,j]:4);end; writeln;end; writeln; for j:=1 to m do begin write(b[j]:4); if min > b[j] then begin min:= b[j]; k:= j;end; end; writeln;writeln; for i:=1 to n do begin for j:=1 to m do begin if j=k then write(r[i,j]:4);end; writeln;end; end.
5, 1 и 4
Объяснение:
а) без буквы ё в русском алфавите 32 =
буквы, то есть нужно 5 бит для кодирования каждой буквы
б) в двоичном коде всего два варианта цифр - 0 и 1, то есть
вариантов.
Для каждого варианта нужен всего один символ, то есть 1 бит
в)
вариантов, для каждого варианта 4 бита
// Пометь как лучший ответ