Question

На языке Pascal пожайлуста​

Answer 1

Pascal

var

 x, y:real;

 k, i:integer;

begin

 readln(x);

 readln(k);

 y:=1+x;

 for i:=2 to k do

   y:=y+exp(i*ln(x))/i;

 writeln(y)

end.