Lẻ hay chẵn ở câu đầu tiên ???

Chẳn hay lẻ ở câu thứ 2 ???

lẻ hay chẵn ở câu số 1

chẵn hay lẻ ở câu số 2

uses crt;

var a:array[1..1000]of integer;

i,n,k,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t:=t+a[i];

writeln('Tong cac so la boi cua ',k,' la: ',t);

readln;

end.

lên gg coi seo bn

\(A=\left\{980;5975\right\}\\ B=\left\{627;49137\right\}\\ C=\left\{980\right\}\)

Câu 7: C

Câu 8: B

Câu 9: Đề không rõ

Câu 10: A

Số số hạng lớn nhất có thể trong dãy còn lại là $15$.

Chia dãy trên thành các cặp số (1;2),(2;4),(3;6),....

Để không có cặp số nào ở trên có tỉ số là 2, ta xóa ở mỗi cặp trên 1 số. Có hai trường hợp :

Nếu đó là số lẻ suy ra những số còn lại là số chẵn, do đó có thể xảy ra trường hợp số còn lại của cặp này gấp 2 lần số còn lại ở cặp kia.(Ví dụ 6, 12...).Vì vậy nên số số phải xóa đi lớn hơn 15.

Nếu đò là những số chẵn thì các số còn lại là số lẻ, do đó không có trường hợp như trên(số còn lại của cặp này gấp 2 lần số còn lại ở cặp kia).Số số cần phải xóa là 15.

Cách làm cho kết quả có nhiều số số hạng nhất là cách 2, khi đó kết quả là 15.

lop 6

1,2,3...30 co 30 so hang

xoa het so chan dam bao yeu cau

1,3,5,7..29 co 15 so so hang

1.them 4, bo 8-

2.them 6 bo 12

3.them 10 bo 20

4.them 14 bo 28

5.them 16

15+5=20 so hang

2 là số chẵn nên em lấy bao nhiêu số 2 cộng với nhau kết quả thu được vẫn là số chẵn.

Do đó, tích của 2 với một số luôn là số chẵn.

Đáp án là A

uses crt;

var a:array[1..100]of integer;

i,n,t1,t2,t3:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t1:=0;

for i:=1 to n do 

  if a[i]<0 then t1:=t1+a[i];

writeln('Tong cac so am la: ',t1);

t2:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t2:=t2+a[i];

writeln('Tong cac so chia het cho 2 la: ',t2);

t3:=0;

for i:=1 to n do 

  if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];

writeln('Tong cac so duong chia het cho 3 la: ',t3);

readln;

end.