Viếy hàm xóa cách để tạo 1 xâu thu được từ xâu S sau khi xóa toàn bộ dấu cách trong xâu S nếu có Cần gấp ạ!!!!
2 câu trả lời
program bai_giai;
uses crt;
var s:string;
begin
clrscr;
readln(s);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
write(s);
readln;
end.
uses crt;
var i,k:byte;
a,b:string;
begin
write('Nhap xau: '); readln(a);
k:=length(a); b:='';
for i:=1 to k do
if a[i]<>' ' then b:=b+a[i];
write('Ket qua: ',b);
readln
end.
Câu hỏi trong lớp
Xem thêm
