Question

Вычислить и распечатать значение функции Z = X^k/K^2, большие E если K = 1,2,3...40

Answer 1

var
    x, xk: real;
    k: integer;

begin
    readln(x);
    xk := 1;
    
    for k := 1 to 40 do
    begin
        xk := xk * x;
        writeln(k, ' z=', xk / k / k);
    end;
end.