sum ( i^(2*i)/i! ,i =1..n )

// algorithme de calcule de la somme suivant: sum ( i^(2*i)/i! ,i =1..n )

variable s,i,j,a,b,n;
ecrire("saisir n: ");
lire( n );
s <- 0;
pour i de 1 à n faire
	a <- 1;
	pour j de 1 à 2*i faire
		a <- a*i;
	fin pour
	b <- 1;
	pour j de 1 à i faire
		b <- b*j;
	fin pour
	s <- s + a/b;
fin pour
ecrire("la somme total est: ",s);