Question

[Trần Hải Đăng]

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.

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var kt:boolean;

st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

kt:=true;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=false;

if kt=true then writeln('Day la xau doi xung')

else writeln('Day khong la xau doi xung');

readln;

end.