Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
<span>I = m*log2(N), </span>
<span>где m - количество символов(букв) в сообщении, N - мощность алфавита, т.е. количество символов (букв) в нем. </span>
<span>1) оценка количества информации в первом символе сообщения </span>
<span>N1=2, так как могут быть только 2 разных символа алфавита племени мульти: А или О, m1=1 </span>
<span>I1=m1*log2(N1)=1*log2(2)=1 бит; </span>
<span>2) оценка количества информации в остальных 8-1=7 символах сообщения </span>
<span>N2=32, так как могут быть 32 разных символа всего алфавита племени мульти, m2=7 </span>
<span>I2=m2*log2(N2)=7*log2(32)=35 бит; </span>
<span>3) оценка количества символов информации в сообщении </span>
<span>I=I1+I2=1+35=36 бит</span>
Для решения этого задания достаточно перевести указанное число в двоичную СС и посчитать нули.
158(10) = 10011110, отсюда следует что нулей три.
Ответ: 3.
#Python 3.X
n = int(input('n = '))
c2, c3 = 0, 0
for i in range(n):
x = int(input('Число {}: '.format(i + 1)))
if x % 2 == 0:
c2 += 1
elif x % 3 == 0:
c3 += 1
print('На 2 делится {} чисел, на 3 - {}.'.format(c2, c3))