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

Question

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

ngochoa · Answer

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.

0 bình luận về “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”