Bài 13. Viết CT nhập vào một xâu kí tự. Hãy in ra từng từ của xâu đó. 1 từ trên 1 hàng, đồng thời cho biết xâu trên có bao nhiêu từ. VD: inp: Ban A di

0 bình luận về “Bài 13. Viết CT nhập vào một xâu kí tự. Hãy in ra từng từ của xâu đó. 1 từ trên 1 hàng, đồng thời cho biết xâu trên có bao nhiêu từ. VD: inp: Ban A di”

1. Program NN;
   Uses crt;
   Var St: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);

           While St[1]=#32 do Delete(St,1,1);
           While St[length(St)]=#32 do Delete(St,length(St),1);
           While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);

           d:=1;
           For i:=1 to length(St) do
                   If St[i]<>#32 then Write(St[i])
                   Else
                   Begin
                           inc(d);
                           Writeln;
                   End;
           Writeln;
           Write(d);
           Readln
   End.

   Bình luận