👤

De la tastatura se introduce un sir de caractere prezentat de variabila s. Determinati daca sirul respectiv este palindrom (la citirea inversa se obtine acelasi sir, de exemplu cojoc).

Răspuns :

Program Tema;
uses sysutils;

var s,invers:string;
    c:char;
Begin
invers:='';
writeln('Introduceti sirul:');
readln(s);
for c in s  do
begin
invers:=c+invers;
end;
if comparestr(s,invers)=0 then
writeln('Sirul este palindrom')
else
writeln('Sirul nu este palindrom');

End.