// PascalABC.NET 3.3
begin
var a:=ArrRandom(35,2,42); a.Println;
Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));
end.
Пример:
34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37
П=2916000
1) a = 0, b = 0
2) идём по строке, если символ 'A', то ++а, т.е. станет а = 3
3) если два символа симметричны относительно центра, то ++b
ALL OUR LIF
EMAG A SI E
симметричных символов нет, поэтому b = 0
<span>4) b > a == false, поэтому D = a*a*a = 27</span>
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 1024 * 64 * 64 = 4194304 шт
i = 8 бит
I - ?
Решение:
I = K * i = 4194304 * 8 бит = 33554432.0 бит
33554432.0 бит = 4194304.0 байт = 4096.0 Кбайт = 4.0 Мбайт
Информационный объём этого сообщегия: 24 байта