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_nguoc;
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(dao(s));
readln;
end.
var s: string;
i: byte;
Procedure dao(a: string);
Begin
For i:=length(a) downto 1 do
write(a[i]);
End;
Begin
Write('nhap xau: '); readln(s);
Writeln('xau sau khi dao: ');
Dao(s);
Readln
End.
