i-вес одного символа
N-мощность алфавита
I=i*K
I-вес файла
k-количество символов в тексте
В задачах нужно считать в битах.
1Мб=1024Кб(2^10)=2048байт(2^20)=2^23 бит
Ещё что нибудь нужно?
program mas;
var A:array[1..4,1..6] of integer;
i, j: integer;
summ: integer;
id: integer;
begin
randomize;
for i := 1 to 4 do
begin
for j := 1 to 6 do
begin
A[i, j] := random(30) + 45;
write(A[i,j]);
write(' ');
end;
writeln('');
end;
for j := 1 to 6 do
begin
for i := 1 to 4 do
begin
summ := summ +A[i, j];
end;
writeln(summ / 4);
summ := 0;
end;
readln;
end.
2^35 * 8 = 2^38 бит
в кбите 1024 бит
2^38 : 1024 = 268 435 456 кбит
в 1 мбите 1024 кбит
268 435 456 : 1024 = 262 144 мбит
в 1 гбите 1024 мбит
262 144 : 1024 = 256 гбит
ответ 256
128 мбит : 8 = 16 мбайт
16 * 1024 = 16384 кбайт
16384 * 1024 = 155 777 216 байт
ответ 155 777 216
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>