Ai giúp em với ạ,ai lm nhanh em vote 5* ạ
Viết CT nhập vào 1 chuỗi,xoá khoảng trắng trong chuỗi đó đi (IDE pascal ạ)

Question

Ai giúp em với ạ,ai lm nhanh em vote 5* ạ Viết CT nhập vào 1 chuỗi,xoá khoảng trắng trong chuỗi đó đi (IDE pascal ạ)

minhtu · Answer

uses crt;

Var

S:String;

Begin

readln(S);

while pos(‘ ‘,S)>0 do delete(S,pos(‘ ‘,S),1);

{while S[1]= ‘ ‘ do delete(S,1,1);

while S[length(S)]=’ ‘ do delete(S,length(S),1);}

write(S);

Readln;

End.

Mình cho 2 câu lệnh sau vào dấu { }, bạn chạy thử CT, nếu đúng thì bạn có thể bỏ, thiếu trường hợp thì bạn thêm vào, tại lần đầu làm bài này

baothah · Answer

Program ChuanHoaChuoi;

Var s:String;

Begin

Write(‘Nhap chuoi mauon chuan hoa :’);

Readln(s);

While Pos(‘ ‘,s)>0 Do

Delete(s,pos(‘ ‘,s),1);

If s[1]=’ ‘ then delete(s,1,1);

If s[length(s)]=’ ‘ then delete(s, length(s),1);

Write(‘Chuoi sau khi xu ly:’,s);

Readln

end.

xin ctlhn và cảm ơn + 5sao