Palindrome[pascal]
Fermé
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
est-ce que c'est correcte?
program az;
uses wincrt;
var a,i,o,e,j:integer; ch:string;
begin
readln(ch);
o:=length(ch) div 2+1;
e:=length(ch);
i:=1;
while (ch[i]=ch[e-i+1]) and (o>i)do
i:=i+1;
if o=i then writeln('le mot est palindrome')
else writeln('n''est pas palindromes');
end.
program az;
uses wincrt;
var a,i,o,e,j:integer; ch:string;
begin
readln(ch);
o:=length(ch) div 2+1;
e:=length(ch);
i:=1;
while (ch[i]=ch[e-i+1]) and (o>i)do
i:=i+1;
if o=i then writeln('le mot est palindrome')
else writeln('n''est pas palindromes');
end.
