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 hoc --> out:4 inp: Toi La hoc SInh lop Tam --> out:6

uses crt;

var S : string; i, d : byte;

begin

clrscr;

write('Nhap xau : '); readln(S);

d := 0; for i := 1 to length(S) do

if (S[i] = ' ') and (S[i + 1] <> ' ') then

d := d + 1;

if S[1] <> ' ' then d := d + 1;

write('Xau co ', d ,' tu');

readln

end.

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.