Tin học [tin học 11] sử dụng máy tính

[quangvinht00336]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

ai giúp e câu này với
viết chương trình nhập 1 xâu từ bàn phím và đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ dấu cách nếu có.dữ liệu máy lấy từ INPUT.TXT và rút ra file OUTPUT.TXT

 

[pinkylun]

Program abc;
var f,g:text;
a:string;
x,i:longint;
begin
assign(f,INPUT.txt);reset(f);
assign(g,OUTPUT.txt); rewrite(g);
read(f,a);
x:=length(a);
for i:=1 to x do
begin if a=' ' then delete(a,i,1);
end;
write(g,a);
close(f);
close(g);
end.