Viết chương trình nhập xâu. In ra màn hình xâu đảo ngược từ xâu vừa tạo sử dụng hàm tạo xâu đảo ngược
2 câu trả lời
program xau_dao;
uses crt;
var s:string;
function dao(st:string):string;
var i:byte;
begin
dao:='';
for i:=length(st) downto 1 do
dao:=dao+st[i];
end;
BEGIN
clrscr;
write('Nhap xau: '); readln(s);
write('Xau dao la: ',dao(s));
readln;
end.
uses crt;
var s:string;
function dao(s:string):string;
var i:longint;
begin
dao:='';
for i:=length(s) downto 1 do dao:=dao+s[i];
end;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
writeln(dao(s));
readln
end.
