Pascal ạ
- Dùng biến logic: dx
- Khởi tạo: dx:= true;
- Dùng vòng for duyệt từ đầu đến giữa xâu a ( độ dài xâu chia 2 lấy phần nguyên)
nếu a[i] <>[length(a)-(i-1)] thì dx:=false.
- Nếu dx=true thì thông báo: Đây là xâu đối xứng nếu không thì thông báo: Đây không là xâu đối xứng.