For(int i=50;i>1;i--)
{
if ((i % 2) >0 )
cout <<i<<";"<<endl;
}
Всего возможных вариантов N=16.
Подставим это в формулу
Таким образом, 4 бит информации несет сообщение
Function fac(a:integer):int64;
Var i,b:integer;
Begin
b:=1;
for i:= 1 to a do
b:=b*i;
fac:=b;
End;
Var
i,n:integer; s:real;
Begin
s:=1;
Write('Введите число n: ');
Readln(n);
for i:= 1 to 2*n do
s:=s+1/fac(i);
Write(s);
End.