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.
