Question

Дано натуральное число n. Вычислить: 1/1^3+1/2^6+1/3^9+...+1/n^(3*n)

Answer 1

var
    i, n, j: integer;
    a, s: real;

begin
    readln(n);
    
    for i := 1 to n do
    begin
        a := 1;
        for j := 1 to 3 * i do
            a := a * 1 / i;
        s := s + 1 / a;
    end;
    
    writeln(s:5:3);
end.