Bài 2 

Program bt2 ;

Var i , k: byte;

       a: string;

Begin 

        Write(' nhap xau') readln;

        K:= length(a) ;

begin 

         Write (' nhap xau : ' ) ;

         Readln (a);

         For i: = 1 to k do 

         If a[i] <>'   ' then write(a[i]) ;

         Readln

End.  

       

 Bn xem lại nha 

 Ý a hình như thiếu ji đó

        

Câu 2:

Program FNG;
Uses crt;
Var St: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        Writeln('Do dai: ',length(St));
        For i:=1 to length(St) do
                If St[i]=#32 then Delete(St,i,1);
        Write('St = ',St);
        Readln
End.

Câu 3:

Program FNG;
Uses crt;
Var A: array[1..200] of longint;
    i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 200 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 1 then s:=s+A[i];
        End;

        Write('S = ',s);
        Readln
End.