2 câu trả lời
program Tin_hoc;
uses crt;
var i,:Integer;
a,b:string;
begin
clrscr;
writeln('Nhap xau tu a den z:');readln(a);
b:='';
for i:= length(a) downto 1 do b:=b+a[i];
writeln('Xau dao nguoc xau tren:')writeln(b);
readln;
end.
uses crt;
var s : string; i : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
write('Xau dao nguoc : ');
for i := length(s) downto 1 do write(s[i]);
readln
end.
