Program fofgogjoj;
var
a,b,c,ot:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then
ot:=ot+1;
if b<0 then
ot:=ot+1;
if c<0 then
ot:=ot+1;
Writeln('Кол-во отрицательных чисел:',ot);
<span>end.</span>
Что такое информация - это философский вопрос. Информация - это физическая субстанция, которую можно померять. Информация тесно связана с таким понятием, как вероятность - вероятность события.
Информация - это всё новое, неизведанное, всё, что может быть использовано для осознанного действия - действяи по улудшению своего состояния в этом мире.
Информация пропорциональна вероятности того, что событие произойдёт. При чём, чем больше вероятность, темменьше информации.
Тоесть I~1/P
Но информация должна обладать эффектом аддитивности. Тоесть информация о суммарном событии должна быть равна сумме информация о каждом из (независимых!!!) событий:
I(Q1*Q2)= 1/P(Q1*Q2) = 1/(P(Q1) * P(Q2)) не равно I(Q1)+I(Q2)
Что бы добиться равинства, надо взять логорифм:
I(Q1*Q2) = I(Q1) + I(Q2) = log(1/(P(Q1) * P(Q2))) = log(1/P(Q1)) + log(1/P(Q2)) = -log(P(Q1)) - log(P(Q2))
Основание логорифма определяет единицу измерения информации. Если основание "2", то единица измерения "бит".
Таким образом мы определяем что такое 1 бит информации:
1 = log2(P(Q)) => P(Q) = 1/2
1 бит - это информация о событии, вероятность которого равна 1/2.
Відпоаідь - 1. всі інші не підходять, оскільки припевних комбінаціях XYZ, <span>F дорівнюватиме 0</span>
Var n,i:integer; s:real;
Begin
write('n='); readln(n);
s:=0;
for i:=1 to (n*2)-1 do
if (i mod 2)<>0 then s:=s+1/i;
writeln('s=',s:0:2);
<span>End.</span>