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.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.