Exercice 15 : Palindrome

debut du programme Palindrome.
  ecrire('Donner un mot : ')
  lire(mot)
  long <-- La longueur de mot
  i <-- 1
  tant que la ième et la (long-i+1)ème lettre du mot sont égales et que i <= à long / 2
    i <-- i + 1
  fin tant que
  si la ième et la (long -i +1)éme lettre de mot sont égales
  alors
    ecrire(mot,'est un palindrome')
  sinon
    ecrire(mot,'n_est pas un palindrome')
  finsi
fin

program palindrome;

var
  i, lon : integer;
  mot : string;

begin
  writeln('donnez un mot : ');
  readln(mot);
  lon := length(mot);
  i := 1;
  while ((mot[i] = mot[lon - i + 1]) and (i <= lon div 2)) do
   i := i + 1;
  if (mot[i] = mot[lon - i + 1])
  then
    writeln(mot, ' est un palindrome')
  else
    writeln(mot, ' n''est pas un palindrome');
end.

#include <stdio.h>
#include <string.h>
#define max 30  /* La longueur maximum du mot */

main(void)
{
  int  i,lon;
  char mot[max];

  printf("Donner un mot : ");
  scanf("%s",mot);
  lon = strlen(mot);
  i = 0;
  while ((mot[i] == mot[lon - i -1]) && (i <= lon / 2))
    i = i + 1;
  if (mot[i] == mot[lon - i -1])
    printf("%s est un palindrome \n",mot);
  else
    printf("%s n'est pas un palindrome\n",mot);
}

mot = raw_input("quel est le mot ? ")
lon=len(mot)
print "le mot est ",mot," et sa longueur ",lon
i = 0
while ((mot[i] == mot[-i-1]) and (i<lon/2+1)):
  i=i+1
if mot[i] == mot[-i-1]:
  print "le mot ",mot," est un palindrome"
else:
  print "le mot ",mot," n'est pas un palindrome"