N - мощность алфавитаI - информационный объем сообщенияi - информационный объем одного символа N=2^i Найдем i:1/16 кб = 2^13/2^4 бит = 2^9 бит i=2^9/(256*2)=2^9/2^9=1 бит <span>N=2^i=2^1=2 символа. </span>
надо было указать в какой среде обитания составить программу!
ибо если это паскаль это очень легко
a:=(5-(х-7)*3)/(6+х);
b:=(2*x*4+1)/(x-5);
на относится 2 . Потому, что все остальные расширения это рисунки, а это звук.
Проверено - работает на Паскаль АВС
Program mashaaq;
uses crt;
const n=12;
const m=15;
var
a:array[1..n,1..m] of integer;
b:array[1..n] of integer;
i,j,minus : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:= Random(101)-50; //заполняем массив случайными числами
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
for i:=1 to n do //просматриваем строки сверху вниз
begin
minus:=0;
for j:=1 to m do //просматриваем строку
if a[i,j]<0 then minus:=minus+1; //если найден отрицательный элемент, увеличиваем счётчик minus на единицу
b[i]:=minus; //сохраняем значение счётчика для i-й строки
end;
writeln;
{выводим матрицу А и вектор результатов В}
{в красивой рамочке :)}
writeln('**************************************************************************');
writeln('* Массив * Вектор *');
writeln('**************************************************************************');
for i:=1 to n do
begin
write ('* ');
for j:=1 to m do
write(a[i,j]:4); //выводим строку массива
writeln(' * ',b[i]:2,' *'); //дописываем справа значение вектора В для этой строки
end;
writeln('**************************************************************************');
end.