Giúp mình với Viết chương trình đọc sâu S từ tệp IN.txt sau đó in xâu S ra màn hình theo chiều ngược lại
2 câu trả lời
Program bt;
Uses crt;
Var fi:text;
S:string;
I:integer;
Begin
Assign(fi,'IN.txt'); reset(fi);
Read(fi,s);
Close(fi);
For i:=length(s) downto 1 do
Write(s[i]);
Readln;
End.
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:=1 to length(s) do write(s[length(s)-i+1]);
close(f); readln;
end.
Câu hỏi trong lớp
Xem thêm
