var
l,x,sum:real;
i:integer;
begin
write ('L = ');
readln(l);
write ('X = ');
readln(x);
i:=1;
sum:=0;
while i<=101 do
begin
sum:=sum+exp((x+i)*ln(l))/i;
i:=i+2;
end;
writeln ('Summa: ',sum);
readln;
end.
Решение:
В каждом слове вычеркнем лишние буквы, оставляя только те, которые используются как римские цифры {I,V,X,L,C,D,M}. Получим римские числа, а в правом столбце их десятичные эквиваленты. Словам INFORMATICS и WINDOWS соответствует значок [error], потому что полученные наборы цифр {IMIC, ID} не сответствуют правилам записи римских чисел {см. прикреплённый рисунок}. Слову MEDALIST соответствует число MDLI=1551.
ОТвет: 1551
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>
<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>