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

0 bình luận về “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. 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.

   Bình luận