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

 

[tex]y= (x+1/1!)(x^2+1/2!)...(x^5+1/5!), x=-1.5[/tex]

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.