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

Question

Информатика

Агафон

28 апреля, 12:34

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

+3

Ответы (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.