Exo algo inversement de chaine

Afficher "saisir mot ?";
Lire mot;
n <- longueur(mot);
Pour i = 0; i < n ; i = i +1
  it <- i + 1;
  Ecrire "iteration" it " : " sschaine( mot( n - i -1, 1) );
  Ecrire le caractère de retour à la ligne (std::endl en C++, \n dans la plupart des langages)
Fin pour
Ecrire "fin"

saisir mot ? tapir
// le mot est de longueur 5 (n=5)
// je rentre dans la boucle pour (i=0), cette valeur est <5 donc je rentre dans la boucle pour
// je mets i+1=1 dans it (it=1)
// j'écris le message sachant que n - i - 1 = 4, => 'r'
iteration 1 : r
// je mets i+1=2 dans i, qui est inférieur à n=5
// je rentre dans la boucle pour (i=1), cette valeur est <5 donc je rentre dans la boucle pour
// je mets i+1=2 dans it (it=1)
// j'écris le message sachant que n - i - 1 = 3, => 'i'
iteration 2 : i
// même raisonnement
iteration 3 : p
// même raisonnement
iteration 4 : a
// même raisonnement
iteration 5 : t
// cette fois-ci i=5 et donc on n'a plus i<n, donc je saute la boucle pour
// J'écris Fin
Fin

Afficher "saisir mot ?";
Lire mot;
n <- longueur(mot);
Pour i = 0; i < n ; i = i +1
  Ecrire sschaine( mot( n - i -1, 1) );
Fin pour
Ecrire le caractère de retour à la ligne