Đọc dữ liệu từ tệp 'D/DL1.txt' và ghi dữ liệu sang tệp 'D/DL2.txt' (Giúp minh vs đang cần gấp ạ )
2 câu trả lời
uses crt;
var st : string;
i : integer;
begin clrscr;
assign(input,'d/dl1.txt');
assign(output,'d/dl2.txt');
reset(input); reset(output);
read(input,st);
read(output,st);
close(input); close(output);
readln
program bai_giai;
var f,g:text;
s:string;
begin
Assign(f,'D:\DL1.txt'); reset(f);
Assign(g,'D:\DL2.txt'); rewrite(g);
readln(s);
write(g,s);
close(f); close(g);
end.
Câu hỏi trong lớp
Xem thêm
