Salut!

-j'ai trouvé un exemple sur ce site pour faire un Palindrome , j'ai fais une petite source , mais il m'affiche toujours que le mot n'est pas un palindrome :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
       var st : String;
          inver: String;
          i : Integer;
 
 
Begin
read(st);
                 for i:=0 to length(st) do
 
                  inver:=st[i] + inver ;
                  writeln(st , '=' , inver);
                 if (st[i]=inver[length(st)-i]) then
                                                Begin
                             writeln('Le mot est un palidrome');  
 
                        end
                 else  
                        Begin
                  writeln('Le mot n est pas un palidrome');
                              end
end.
merci