<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>
Берешь чашку, наливаешь в нее заварки, наливаешь кипяток, добавляешь сахар.
Оглядываешься по сторонам, аккуратно идешь по дороге, смотря под ноги.
Собираешь рюкзак, берешь все необходимые вещи, тепло одеваешься, берешь компас, берешь карту, выходишь из дома, шагаешь в поход:)
Количество точек:
256*2*128*2= 2^(17)
2Мб (Мбит или Мбайт ???????)
объём памяти: 2 Мбайта=2*2^23 = 2^(24) бит ?
2 Мбита=2*2^20 бит = 2^21 бит ?
глубина цвета: объём памяти/кол точек =
= 2^24 / 2^17 =2^7=128 бит ?? если Мб - Мбайт
или 2^21/2^17 = 2^4 =16 бит ?? если Мб -Мбит
2)
F =5,1Мбайт = 5,1*2^20 бит =5 347 737,6 байт
t=2*60 =120c
разрядность =5347737,6 / (22050*120)= 16 бит