Viết chương trình nhập vào một xâu từ bàn phím, đưa ra màn hình xâu đảo ngược của xâu vừa nhập.
2 câu trả lời
program xaudao;
uses crt;
var st:string;
begin
clrscr;
write('nhap xau: ');
readln(st);
write('Xau dao la: ');
for i:=length(st) downto 1 do
write(st[i]);
readln;
end.
uses crt;
var s:string;i:integer;
begin
clrscr;
write('nhap xau can dao nguoc: ');readln(s);
write('xau sau khi dao nguoc: ');
for i:=length(s) downto 1 do
begin
write(s[i]);
end;
readln;
end.
