giả sử có tệp data.txt chứa 1 xâu ký tự viết pt đọc xâu ký tự đó và ghi độ dài của nó vào tệp ketqua.txt xâu ký tự đó theo thứ tự ngược lại
2 câu trả lời
uses crt;
var f:text;
str:string;
i:word;
begin
assign(f,'data.txt');reset(f);
readln(f,str);
close(f);
assign(f,'ketqua.txt');rewrite(f);
writeln(f,length(str));
for i:=length(str) downto 1 do write(f,str[i]);
close(f);
end.
uses crt;
var f:text; i:longint; s:string;
begin
clrscr;
assign(f,data.txt');reset(f);
readln(f,s);
close(f);
assign(f,'ketqua.txt');rewrite(f);
for i:=length(s) downto 1 do write(f,s[i]);
close(f);
end.
