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.

Câu hỏi trong lớp Xem thêm