Циклы с известным числом повторений

Question

Циклы с известным числом повторений

Answer 1

var

x,y:real;

i,n:integer;

begin

n:=1;

x:=1;

y:=1;

for i:=1 to 5 do

begin

n:=n*i;

x:=-1.5*x;

y:=y*(x+1/n);

end;

writeln(y:15:5);

end.