Đáp án đây nha bạn :)))))
34.D
35.C
36.C
37.D
38.C
39.B
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.
