Cho dãy số. Tính Trung bình cộng của các số vừa chia hết cho 3 vừa chia hết cho 5
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.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then t:=t+a[i];
writeln(t);
readln;
end.
Ta có dãy số có hai chữ số và chia hết cho 4 là: 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96.
Trung bình cộng của dãy số: (12 + 96 ) : 2 = 54
Đáp số: 54
Từ các chữ số 0;5;6;7 hãy viết tất cả các số có ba chữ số khác nhau sao cho các số đó:
A) chia hết cho 3:
Trả lời: Các số chia hết cho 3 là: 567,576,657,675,765,756,507,570,750,705.
Giải thích:
Tại vì các số sau đây có tổng các chữ số chia hết cho 3 nên chia hết cho 3.
b) vừa chia hết cho 2 vừa chia hết cho 3:
Trả lời: Các số vừa chia hết cho 2 vừa chia hết cho 3 là:576,756,570,750.
Giải thích:
Vì các số sau đây có các số tận cùng chia hết cho 2 nên chia hết cho 2 và vì các số sau đây có tổng các chữ số chia hết cho 3 nên các số này chia hết cho 3.
c) chia hết cho 9:
Trả lời: Các số chia hết cho 9 là:567,576,657,675,765,756.
Giải thích:
Vì các số sau đây có tổng các chữ số chia hết cho 9 nên chia hết cho 9.
d) vừa chia hết cho 5 vừa chia hết cho9:
Trả lời: Các số vừa chia hết cho 5 vừa chia hết cho 9 là:675,765.
Giải thích:
Vì các số sau đây có chữ số tận cùng chia hết cho 5 nên chia hết cho 5 và các số sau đây có tổng các chữ số chia hết co 9 nên chia hết cho 9.
e) vừa chia hết cho 3 mà không chia hết cho 9:
Trả lời:Các số vừa chia hết cho 3 mà không chia hết cho 9 là:507,570,750,705.
Giải thích:
Vì các số sau đây có tổng các chữ số chia hết cho 3 nên chia hết cho 3 và các số sau đây có tổng các chữ số không chia hết cho 9 nên không chia hết cho 9.
xin lỗi đây nè ::)
Dấu hiệu chia hết cho 7 :
Lấy chữ số đầu tiên nhân với 3 rồi cộng thêm chữ số tiếp theo, được
bao nhiêu lại nhân với 3 rồi cộng thêm chx số tiếp theo… cứ như vậy cho
đến chữ số cuối cùng. Nếu kết quả cuối cùng này chia hết cho 7 thì số đó
chia hết cho 7.
“nội dung được trích dẫn từ 123doc.org - cộng đồng mua bán chia sẻ tài liệu hàng đầu Việt Nam”
Tham Khảo:
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);</p><p>for i:=1 to n do</p><p> begin</p><p>write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
bài 1
a/ 108 ; 510
b/ 108 ; 510 ; 1065
c/ 510
d/1900
e/ 1065 ; 510
TV
Sân trường em có ba cây bàng mà các bạn trai gọi một cách hóm hỉnh là "cụ bàng". Gốc bàng to, thân cây gù, nổi thành nhiều bướu, mỗi bướu có hình thù khác nhau trông rất cổ quái. Mùa hè, tán bàng xanh biếc, bóng mát tòa rợp sân trường là nơi vui đùa của chúng em trong giờ ra chơi. Mùa thu, lá bàng đỏ ối như những chiếc quạt lụa óng a óng ánh tuyệt đẹp. Cây bàng là vương quốc của đàn chim sâu, còn đối với chúng em, nó là người bạn thương yêu của tuổi thơ.
học tốt
uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.
Program hotrotinhoc;
var tb: longint;
tbc: real;
i,n,d: integer;
a: array[1..32000] of integer;
begin
readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
inc(d);
tb:=tb+a[i];
end;
tbc:=tb/d;
write(tbc:2:2);
readln
end.