K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 4 2020

begin

assign(fi,'bt1.txt');rewrite(fi);

write(fi,'tay ninh');

end.

const fi='bt1.txt';

var f1:text;

begin

assign(f1,fi); rewrite(f1);

writeln(f1,'Tay Ninh');

close(f1);

end.

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

11 tháng 5 2018

Assign(f,’KQ.TXT’);

Rewrite(f);

Write(f,C,V);

Close(f);

17 tháng 3 2017

Assign(f2,’ketqua.txt’);

Rewrite(f2);

Write(f2,T,S);

Close(f2);