1)128000 переводим в байты (128000 / 8 = 16000)
16000 переводим в килобайты ( 16000 / 1024 = 15,625)
500килобайт делим на 15,625 получаем 32секунды.
2)512000 переводим в байты (512000 / 8 = 64000)
64000 переводим в килобайты ( 64000 / 1024 = 62,5 )
62,5 умножаем на 46секунд, получаем 2875
3)128000 переводим в байты (128000 / 8 = 16000)
16000 переводим в килобайты (16000 / 1024 = 15,625)
1минуту 20сек переводим в секунды (60+20=80)
15,625 килобайт умножаем на 80секунд, получаем 1250килобайт
function Cnk(n, k: integer): BigInteger;
begin
if (n = 0) or (n = k) then Result := 1
else
begin
var (p1, p2) := (BigInteger(1), BigInteger(1));
for var i := 2 to n - k do
p2 *= i;
for var i := k + 1 to n do
p1 *= i;
Result := p1 div p2
end
end;
begin
var n := ReadInteger('n=');
if n = 0 then Print(1)
else
begin
var St := new Stack<BigInteger>;
for var i := 0 to n div 2 do
begin
var b := Cnk(n, i);
b.Print;
St.Push(b)
end;
if n.IsEven then St.Pop;
while St.Count > 0 do
begin
St.Peek.Print;
St.Pop
end
end
end.
Примерn= 50
1 50 1225 19600 230300 2118760 15890700 99884400 536878650 2505433700 10272278170 37353738800 121399651100 354860518600 937845656300 2250829575120 4923689695575 9847379391150 18053528883775 30405943383200 47129212243960 67327446062800 88749815264600 108043253365600 121548660036300 126410606437752 121548660036300 108043253365600 88749815264600 67327446062800 47129212243960 30405943383200 18053528883775 9847379391150 4923689695575 2250829575120 937845656300 354860518600 121399651100 37353738800 10272278170 2505433700 536878650 99884400 15890700 2118760 230300 19600 1225 50 1
4 кб=32768 бит
32768: 16384=2 -битов на 1 пиксель (N)
К(кол-во символов)=2∧N
K=2∧2
K=4
ответ:4