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

Pascal

uses crt;

var x, t, s:real;

n, i:integer;

begin

clrscr;

repeat

write ('x0 x=');

readln (x);

until x0;

write ('n=');

readln (n);

s:=x; {первая сумма}

t:=1; {первый множитель}

for i:=2 to n do{начинаем со второго}

begin

t:=-t*x*x / ((2*n-2) * (2*n-1));

s:=s+t; {суммируем}

end;

write ('S=', s:0:8);

readln

end.