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.