3/256 Мбайта = 1024*3/256 Кбайт = 12 Кбайт = 12*1024 байт = 12*1024*8 бит
Память для одного символа = 12*1024*8 / 6144 = 16 бит
Мощность алфавита = 2^16 = 16384
Модуль, Квадрат числа, Корень из числа, Случайное число
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
1-(10+10+6+5+11)+5+10+17+20+18+10+3=-42+83=41(градус цельсия). 2)41:12=3,416(Градусов цельсия) округляем до 3,4 градусов цельсия( ответ)