Viết chương trình nhập vào 1 xâu bất kỳ. Hãy chuẩn hóa xâu đó theo quy tắc sau: - Sau mỗi dấu câu (.) (,) (;) có 1 dấu cách

1 câu trả lời

var s:ansistring;
i:longint;
begin
readln(s);
for i:=1 to length(s) do
        if s[i]in[ ',' , '.', ';' ] then
                write(s[i],' ')
                else write(s[i]);
end.

Câu hỏi trong lớp Xem thêm