Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Lẻ hay chẵn ở câu đầu tiên ???
Chẳn hay lẻ ở câu thứ 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.
\(A=\left\{980;5975\right\}\\ B=\left\{627;49137\right\}\\ C=\left\{980\right\}\)
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.
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.
số nguyên tố là 2; 13;19;31 nhé bạnnnnnnnnnnn. Kết bn với mình nha
các số nguyên tố là : 2 , 13 , 19 , 31