V= 56 Кбит/с=56*2^10 бит/с =7*2^13 бит/с
F= 5 Мбайт = 5*2^23 бит
t =F/v = 5*2^23 : (7*2^13) =5*2^10 / 7 =731,43c=12,2 минуты
Function root(m,n :integer) :real;
begin
root := exp(ln(m)/n)
end;
// корень n степени из числа m
Чтобы закодировать 256 цветов, необходимо 8 бит (2^8 = 256)
На каждый пиксель приходится по 8 бит ->
74*74*8 = 43808 бит
Const nx=30;mx=30;
var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;
begin
write('Введите n');Readln(n);
write('Введите m');Readln(m);
for i:=1 to n do begin
for j:=1 to m do вegin
A[i,j]:=random(100)-20;
write(A[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (A[i,j] mod 3 =0) then begin
B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;
for i:=1 to n do begin
if (B[i]=0) and (D[i]= 0) then B[i]:= -10;
write(B[i]:4);end;<span>end.</span>
<span><span><span><span>
Вроде бы такое решение </span></span></span></span>