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