Const n=3; m=4; var a:array[1..n,1..m] of real; i,j:integer; min:real; begin Randomize; writeln('Исходная матрица:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=10*random-5; write(a[i,j]:6:2); end; writeln; end; min:=abs(a[i,j]); for i:=1 to n do for j:=1 to m do if abs(a[i,j])<min then min:=abs(a[i,j]); for i:=1 to n do for j:=1 to m do a[i,j]:=a[i,j]/min; writeln('min = ',min:6:2); writeln('Измененная матрица:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6:2); writeln; end; end.
62 символа * 8 бит = 496 бит в строке
46 строк * 496 бит = 46 * 496 = 22 816 бит в странице
432 страницы * 22 816 бит = 9 856 512 бит в книге
9 856 512 бит / 8 = 1 232 064 байт
1 232 064 байт / 1024 = 1203,1875 КБ
1203,1875 КБ / 1024 = 1,174987792969 МБ ≈ 1.17 МБ в книге
Например, на CD с объемом 737 МБ, таких книжек вместится 737/1,17 ≈ 630 штук