Вот по этой формуле достаточно просто, насчет других СС я не поняла, не приходилось как-то...
256=2 в 8-ой степени
8 бит на символ
8×30×70×5=84000 бит=10500 байт=10 килобайт
Ответ:
Объяснение:
110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 53₁₀
53₁₀ = 5*8⁰ + 6*8¹ = 65₈
53₁₀ = 5*16⁰ + 3*16¹ = 35₁₆
217₈ = 7*8⁰ + 1*8¹ + 2*8² = 143₁₀
143₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10001111₂
143₁₀ = 15*16⁰ + 8*16¹ = 8F₁₆
216₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11011000₂
216₁₀ = 0*8⁰ + 3*8¹ + 3*8² = 330₈
216₁₀ = 8*16⁰ + 13*16¹ = D8₁₆
4AC₁₆ = C*16⁰ + A*16¹ + 4*16² = 1196₁₀
1196₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 1*2¹⁰ = 10010101100₂
1196₁₀ = 4*8⁰ + 5*8¹ + 2*8² + 2*8³ = 2254₈
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.