1) в одном байте 8 бит.1800 байт переводим в биты = 1800*8 = 14400 бит скорость 14400 бит/c делим 14400 на 14400 = 1с передадим за 1 сек. 2)1.5Мбайта переводим в байты = в 1Мбайте 1024Кбайта в 1Кбайте 1024байта получаем 1.5Мбайта=1536Кбайт=1572864байта умножаем на 8(перевод в биты)=12582912бит канал 12800 бит/c делим получаем 983,04 секунды на передачу файла 3) 7200Кбайт умножаем на 8 получаем 57600 Кбит делим на скорость получаем 300сек.
Во втором задании может быть ошибка, но не пойму в чем. щас еще подумаю...
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
Объяснение:
Если число меньше 100 мы его умножаем на 3 иначе делим на 2