K=8*40*48=15360 символов (всего в рассказе)
i=8 бит=1 байт (на один символ)
I=k*i=15360*1=15360 байт / 1024 = 15 Кб
Ответ: 3)
const
m = 2;
n = 3;
var
A, B, C: array [0..m - 1,0..n - 1] of real;
Ct: array [0..n - 1, 0..m - 1] of real;
i, j: Integer;
begin
// заполнение матрицы С среднеарифметическими значениями А и В
for i := 0 to m - 1 do
for j := 0 to n - 1 do
C [i, j] := (A [i, j] + B [i, j]) / 2;
// транспонирование С в Ct
for i := 0 to m - 1 do
for j := 0 to n - 1 do
Ct [j, i] := C [i, j];
end;
<span>1. 100000 Кбайт = 100 Мбайт
2. 512 бит < 50 байт
3. 1024 байт < 1 Кбайт
4. 8 Гбайт = 80000 Мбайт
5. 16 байт > 128 бит</span>
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
S:=0;
for i:=1 to 7 do begin
s:=s+sin(x);
x:=x+x;
end;
Остальную программу сам допишешь.