Viết ct nhập vào một danh sách học sinh gồm họ tên quê quán năm sinh và đưa ra sâu đảo ngược của sâu đó
1 câu trả lời
uses crt;
var s,sd: string;
i: byte;
begin
clrscr;
write ('nhap xau: '); readln (s);
for i:=length(s) downto 1 do sd:=sd+s[i];
writeln ('xau dao: ',sd);
readln;
end.