Viết chương trình đọc xâu S từ tệp IN.txt sau đó in xâu s ra màn hình theo chiều ngược lại Giúp mình với
2 câu trả lời
program bai_giai;
uses crt;
var f:text;
s:string;
i:integer;
begin
clrscr;
Assign(f,'IN.txt'); reset(f);
readln(f,s);
for i:=length(S) downto 1 do write(s[i]);
close(f); readln;
end.
uses crt;
var f:text;
i:longint;
s:string;
begin
clrscr;
assign(f,'IN.txt');reset(f);
readln(f,s);
close(f);
for i:=length(s) downto 1 do write(s[i]);
readln;
end.
Câu hỏi trong lớp
Xem thêm
