Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng hay không. Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu

Câu 22: Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng hay không. Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu được kết quả giống như đọc trái sang phải (còn được gọi xâu palindrome).

Trả lời

program vd2;

uses crt;

var

          i,x:byte;

          a,p:string;

begin

          clrscr;

          write(‘nhapxau’);

          readln(a);

          x:=length(a);

          p:=’’;

          for i:=x downto 1 do

          p:=p+a[i];

          if a=p then

                   write(‘xau la palindrome’)

else

                   write(‘xau khong phai la palindrome’);

          readkey;

end.