viết chương trình nhập một xâu vào từ bàn phím và đưa ra màn hình xâu đó nhưng được viết theo thứ tự ngược lại
2 câu trả lời
program bt;
uses crt;
var a: string;
i, x: byte;
begin
clrscr;
write('Nhap xau a la:'); readln(a);
x:= length(a);
write('Xau nguoc la:');
for i := x downto 1 do write(a[i]);
readln
end.
Xin câu trả lời hay nhất ạ :3
program xau_dao_nguoc;
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.
