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.
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.
By Valentina
By Valentina
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.
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.