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

Question

khanhchau · Answer

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

Trả lời

ngochuong · Answer

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.