Выбираю строчка где F=1 и записываю через переменные сумму произведений соответствующих строк
если 0-пишу не х, если 1-то пишу х
c у так же
тогда не х * не у + не х * у = (не у + у) * не х = 1 * не х = не х
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
Моно (1) * кодирование (16) * частота дискретезации (32 * 1000(гц)) * t(сек) = 625 * 2^13 бит
t=(625*2^13)/(1000*2^5*2^4)
t = 10 сек
Вроде так, если нигде не ошибся. Когда без калькулятора считаешь работай со степенями 2; и 1000 можно представлять как 2^10 = (1024), если есть варианты ответа, погрешность не большая
2^x*2^y=2^(x+y)
2^x/2^y=2^(x-y)