Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Anh Em Song Sinh

viết chương trình đọc 1 sâu kí tự từ tẹp input.txt. sau đó ghi vào tệp output.txt sau khi đã lạo cỏ các dấu cách

Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 22:34

const fi='input.txt'

fo='output.txt'

var st:string;

f1,f2:text;

i,d:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

for i:=1 to d do 

 if st[i]<>#32 then write(f2,st[i]);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Trần Quốc Luân
Xem chi tiết
Hoàng Long
Xem chi tiết
vkfabsj blahbjkwa
Xem chi tiết
Nguyện Trần
Xem chi tiết
Vũ văn huy
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
phạm hữu đoàn
Xem chi tiết
Nhật Quỳnh
Xem chi tiết
Quyền
Xem chi tiết