Bài 1: Nhập vào xâu s có độ dài không quá 100 ký tự đưa ra xâu đó sau khi xóa hết các ký tự hàng thừa (đầu,cuối) câu có kí tự tiếp , giữa các từ có nhiều hơn 1 kí tự trắng
1 câu trả lời
Var s: string[100];
i: byte;
Begin
Write('nhap xau: '); readln(s);
While s[1]=' ' do delete(s, 1, 1);
While s[length(s)]=' ' do
delete(s, length(s), 1);
I:=1;
While i<length(s) do
Begin
If (s[i]=' ') and (s[i+1]=' ') then
Begin
Delete(s, i, 1); dec(i);
End;
Inc(i);
End;
Write(s);
Readln
End.
