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

Question

Информатика

Петюня

13 февраля, 07:11

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

+4

Ответы (1)

Знаете ответ?

Боря · 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.