uses crt; var i,x:byte; s,p:string; begin clrscr; write('Nhap xau: '); readln(s); x:=length(s); p:=''; for i:=x downto 1 do p:=p+s[i]; if s=p then write('La xau doi xung') else write('La xau khong doi xung'); readln end.
program bai_giai; uses crt; var s:string; i,kt:byte; begin clrscr; write('Nhap xau: '); readln(s); kt:=1; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then begin kt:=0; break; end; if kt=1 then write('DOI XUNG') else write('KHONG DOI XUNG'); readln; end.
