40.D

41.B

42.B

43.B

44.D

6/

Program BTH;
Uses Crt;
Var a,b:integer;
Begin
Clrscr;
a:=0;
For b:=1 to 100 do
If b mod 2=0 then a:=a+b;

Writeln('Tong cua day so tren la: ',a);
readln;
End.

7/

Program BTH;
Uses Crt;
Var b:integer;
Begin
Clrscr;
For b:=1 to 100 do
If b mod 2=0 then write(b,' ');
readln;
End.

8/

Program BTH;
Uses Crt;
Var b:integer;
Begin
Clrscr;
For b:=1 to 100 do
If b mod 2=1 then write(b,' ');
readln;
End.

9/

đếm xem có bao nhiêu số lẻ ở vị trí chắn và ko chia hết cho 2 Câu đó là điều ko thể nha bạn 

Program BTH;
Uses Crt;
Var a:array[1..1000000] of longint;
chan,le,i,s,k,n:longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                Write('Nhap so thu ',i,' : ');readln(a[i]);
        End;
        For i:=1 to n do
        Begin
                If a[i] mod 2=0 then chan:=chan+1 else
                le:=le+1; {Dem chan va le}
                If (a[i] mod 2=0) and (a[i] mod 3=0) and (a[i] mod 5=0) then s:=s+a[i]; {Tinh tong so chia het cho2,3,5}
                If (a[i] mod 2=0) and (a[i] mod 3=0) and (a[i] mod 5<>0) then k:=k+1;
        end;
        Writeln('So luong so chan xuat hien trong day la: ',chan);
        Writeln('So luong so le xuat hien trong day la: ',le);
        Writeln('Tong cac so chia het cho 2, cho 3 va cho 5 la: ',s);
        Writeln('So luong so chia het cho 2 va cho 3 ma khong chia het cho 5 la: ',k);
        readln;
End.

40d

41b

42b

43a

44d