[BZOJ4318] OSU!

传送门

http://www.lydsy.com/JudgeOnline/problem.php?id=4318

题目大意

题解

const
    maxn=100005;
var
    f,l,ll:array[0..maxn]of real;
    i,j,k:longint;
    n:longint;
    a:real;
begin
    readln(n);
    for i:=1 to n do
        begin
            readln(a);
            l[i]:=(l[i-1]+1)*a;
            ll[i]:=(ll[i-1]+2*l[i-1]+1)*a;
            f[i]:=f[i-1]+(3*ll[i-1]+3*l[i-1]+1)*a;
        end;
    writeln(f[n]:0:1);
end.