Viết phương trình nhập vào một xâu , đưa ra màn hình xâu ngược lại
2 câu trả lời
program DaoNguocXau;
uses crt;
var i,k: byte;
a: string;
begin
clrscr;
write('Nhap xau: '); readln(a);
k:=length(a);
for i:= k downto 1 do write(a[i]);
readln
end.
program bai_giai;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=length(s) downto 1 do write(s[i]);
readln;
end.
