Определить информативность сообщения a+b=c, если для описания формул необходимо воспользоваться 64-символьным алфавитом.

N=64 k=10i=6  i=k*i=10*6=60 бит 

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var eps : = 0.001; var (s,tmp): = (1.0,0.0); var i : = 1; var k : = 2.0; var (a, fib): = (1,2); while (abs(s-tmp) > eps)do   begin       tmp: = s;       s+= k / (fib * 3**i );       inc(i); k: = (abs(k) + 2)*k/abs(k); k *= -1;             (a,fib) : = (fib, a + fib);   end;   writeln(s); end.

1. числа можно вводить int k,l; cout< < "-> "; cin> > k> > l; if (k==l) { k=0; l=0; cout< < k< < " "< < l< < endl; }  else    {  l=k;   cout< < k< < " "< < l< < endl;   } если хочешь без ввода удали cin и присвой значения 2. int k,l,z; cout< < "-> "; cin> > k> > l> > z;   if (k> 0)  {  k*=k;   cout< < k< < endl;   }    if (l> 0)  {  l*=l;   cout< < l< < endl;   }    if (z> 0)  {  z*=z;   cout< < z< < endl;   }    if (k< 0)  {  cout< < k< < endl;   }    if (l< 0)  {  cout< < l< < endl;   }    if (z< 0)  {    cout< < z< < endl;   }