C1:

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 inc(d);
        Write(d);
        Readln
End.

C2:

Program NN;
Uses crt;
Var St: String;
    A: array[1..1000] of String;
    i,d: longint;

Function check(s: string): boolean;
Var i: longint;
Begin
        For i:=1 to length(s) div 2 do
                If St[i]<>St[length(s)-i+1] then exit(false);
        exit(true);
End;

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 inc(d);
        For i:=1 to d do A[i]:='';
        d:=1;
        For i:=1 to length(St) do
                If St[i]<>#32 then A[d]:=A[d]+St[i]
                Else inc(d);
        For i:=1 to d do Writeln(A[i],' ');
        Writeln('---');
        For i:=1 to d do
                If check(A[i]) then Writeln(A[i]);
        Readln
End.

5)

uses crt;
var m,i:longint; s:string;
begin
clrscr;
   write('s=');readln(s);
   for i:=2 to length(s) do
      if ((s[i]=' ')and(s[i-1]<>' '))or((i=length(s))and(s[i]<>' ')) then inc(m);
   writeln(m);
readln
end.

6)

uses crt;
var i,m,k,j,n:longint; s:string; a,b:array[1..250]of string;
begin
clrscr;
   write('s=');readln(s); s:=' '+s;
   for i:=1 to length(s) do if (s[i]=' ')and(s[i+1]<>' ') then inc(m) else if s[i]<>' ' then a[m]:=a[m]+s[i];
   if s[length(s)]=' ' then dec(m);
   for i:=1 to m do
      begin
         k:=0;
         for j:=1 to length(a[i]) do if a[i][j]<>a[i][length(a[i])-j+1] then k:=1;

         if k=0 then begin inc(n); b[n]:=a[i]; end;
      end;
   writeln('Co ',n,' tu doi xung:');
   for i:=1 to n do writeln(b[i],' ');
readln
end.