6135 учебников так как 1 символ равен одному байту
9 Кбатй = 73728 бит
73728/1536=48сек
1024*48=49152бит=6164 байт ( 1 байт = 8 бит)
I(информационный объем)=К(количество символов)*i(информационный вес)
I=102*1=102 байта
Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j:integer; </span>
<span>begin </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i=j then a[i,j]:=0; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>end.</span>