Bài 1:
Program BTT;
Uses crt;
Var C: array[1..10000] of longint;
x,i,d: longint;
Begin
Clrscr;
Write('Nhap x: '); Readln(x);
d:=0;
Begin
Randomize;
For i:=1 to x do
Begin
C[i]:=Random(300);
If C[i] mod 2 = 1 then inc(d);
End;
End;
Write('Co ',d,' phan tu le');
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var S,P: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap xau S: '); Readln(S);
Write('Xau dao cua S: ');
For i:=length(S) downto 1 do
Write(S[i]);
Writeln;
d:=0;
For i:=1 to length(S) do
If S[i] in ['0'..'9'] then inc(d);
Writeln('Co ',d,' ki tu so');
Write('Nhap xau P: '); Readln(P);
Insert(P,S,length(S)+1);
Write('Sau khi chen sau P: ',S);
Readln
End.
