Viết chương trình nhập vào 1 xâu kí tự từ bàn phím. a) Tìm xâu đảo ngược của xâu đó. b) Nhập xâu S, nếu xâu vừa nhập không phải xâu đối xứng thì thêm vào bên trái xâu các kí tự sao cho xâu vừa nhập đó trở thành xâu đối xứng. VD: Xâu "abcded" --> "abcdedcba" Pascal nha

a) 

var s:string;

     i:longint;

begin

write('Nhap xau: '); readln(s);

for i:=length(s) downto 1 do

write(s[i]);

readln;

end.

b)

var s,st:string;

     i:longint;

begin

write('Nhap xau: '); readln(s);

for i:=length(s)-1 downto 1 do

st:=st+s[i];

if s=st then write('La xau doi xung') else 

write('Xau doi xung la: ',s+st);

readln;

end.

Để tối ưu thêm câu b) bạn có thể tìm hiểu thêm về hàm Z

Với một thằng ngu Tin như mình thì chỉ làm được câu a '-'

Program BTT;
Uses crt;
Var St: String;
     i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        For i:=length(St) downto 1 do Write(St[i]);
        Readln
End.