nhập vào 1 xâu kiểm tra xem xâu đó có đối xứng hay không trong pascal

đây nhá

PROGRAM XAU_DOI_XUNG;

USES CRT;VAR S,S1:STRING; 

i:INTEGER;

BEGIN

clrscr;

 writeln('Nhap xau ');

readln(s); 

for i:= (length(s)) downto 1 do S1:=S1+S[i];

 if (S1=S) then write('Xau doi xung') else writeln('Xau khong doi xung');

readln;

END.

đã thử rùi nhá

tìm hiểu thêm

program xaudoixung;

uses crt; var s : string;

k: integer;

procedure xdx(s : string );

var i : integer;

kt: boolean; begink := (length(s));

kt:=true;

{gia su xau s doi xung}

for i:= 1 to (k div 2) do

begin

if s[i] <> s[k-i+1] then

begin

kt:=false; break;

end;

end;

 if kt= true then writeln('Xau doi xung') else writeln('Xau khong doi xung');

end;

begin

clrscr;

writeln('Nhap xau ');

readln(s);

xdx(s);

readln;

end.

chx thử nha

uses crt;
var i: integer;
s1,s2:string;
begin
clrscr;
write('nhap xau:');readln(s1);
s2:='';
for i:=length(s1) downto 1 do s2:=s2+s1[i];
if s2=s1 then write('day la xau doi xung')
 else write('day ko phai la xau doi xung');
readln;
end.