Hãy viết chương trình bằng cách khác SGK của ví dụ 4: "Nhập vào một xâu, lấy ra một xâu mới là xâu vừa nhập nhưng đã được loại bỏ các dấu cách". các bác giúp em với ạ em cảm ơn <3
2 câu trả lời
em mới THCS nên thông cảm
var s:string;
begin
write('nhap sau s:');readln(s);
while pos(#32,s)<>0 do
delete(s,pos(#32,s),1);
write(s);
readln;
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln('Xau moi la: ',st);
readln;
end.
