Дано действительное число x и натуральное число n .Написать программу вычисления...

Question

Дано действительное число x и натуральное число n .Написать программу вычисления выражения x^2/1+x^3/2+...+x^n/n-1.В паскале

Answer 1

Компилятора под рукой нет, так что напишу от руки

uses Math;

program find;
begin
var x: real;
var n: integer;
var sum: real := 0;
var res: real;
for var i := 1 to n - 1 do
begin
res := (power(x, i +1) div i) + (power(x, i +1) mod i);
sum += res;
end;
end.