Var a,b,c,x:Real;
begin
Read(a,b,c,x);
WriteLn(exp(ln(((a+b+c)/x)) * 2));
end.
Правильно думаю? 34/2=17 17-3=14 14/2=7 И 7/7=1
В начальной позиции белые (как и черные) могут делать 1 из 7 возможных ходов. Следовательно, количество информации, полученное после первого хода = log(2)7 ≈ 2,8 бит
472000 бит
1 кб = 1024 байта
1 байт = 8 бит
0.59 мб = 590000 байт
590000 байт = 472000