(Python)viết chương trình xem trong khoảng từ 10 đến 2000 có bao nhiêu số vừa chia hết cho 9 vừa chia hết cho 3 vừa chia hết cho 11
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.
program Dem_Chia_Het;
var s, i: longint;
begin
s := 0;
for i := 10 to 2000 do
begin
if i mod 297 = 0 then // Kiểm tra chia hết cho 9, 3, 11
s := s + 1;
end;
writeln('So luong cac so chia het cho 9, 3 va 11 la: ', s);
end.
Số đầu tiên trong dãy chia hết cho 2 là 416 . Ta lập đuợc dãy số:
416,418,420,...,1000
Trọng dãy số có số số hạng là:
(1000-416):2+1=292(số)
Ta lập đuợc dãy Số chia hết cho 5 trong dãy số trên là
415,420,425,...1000
Trọng dãy số trên có số số hạng là:. (1000-415):5+1=118(số)
Số đầu tiên trong dãy chia hết cho cả 2 và 5 là 420.ta lập đuợc dãy số chia hết cho cả 2 và 5:
420,430,440,...,1000
Dãy số trên có số số hạng là
(1000-420):10+1=59(số)
Vậy trong dãy số trên có:
+292 số chia hết cho 2
+118 số chia hết cho 5
+59 số chia hết cho cả 2 va5
Số đầu tiên trong dãy chia hết cho 2 là 416 . Ta lập đuợc dãy số:
416,418,420,...,1000
Trọng dãy số có số số hạng là:
(1000-416):2+1=292(số)
Ta lập đuợc dãy Số chia hết cho 5 trong dãy số trên là
415,420,425,...1000
Trọng dãy số trên có số số hạng là:. (1000-415):5+1=118(số)
Số đầu tiên trong dãy chia hết cho cả 2 và 5 là 420.ta lập đuợc dãy số chia hết cho cả 2 và 5:
420,430,440,...,1000
Dãy số trên có số số hạng là
(1000-420):10+1=59(số)
Vậy trong dãy số trên có:
+ 292 số chia hết cho 2
+ 118 số chia hết cho 5
+ 59 số chia hết cho cả 2 và 5
------------------------- HỌC TỐT -----------------------
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.
(1000 - 416):2+1=293 số chia hết cho 2
(1000 - 415):5+1=118 số chia hết cho 5
(1000 - 420):10+1=59 số chia hết cho 2 và 5
(vận dụng kt lớp 6)
a.SỐ CHIA HẾT CHO 6 LÀ CÁC SỐ CHẴN CHIA CHO 3
CÁC SỐ ĐÓ LÀ 6,12,18.............1998,2004,2010
VẬY CÓ TẤT CẢ 2010/6=335 SỐ CHIA HẾT CHO 6
b.SỐ VỪA CHIA HẾT CHO 6 VÀ VỪA CHIA HẾT CHO 5 LÀ CÁC SỐ TẬN CÙNG BẰNG O
CÁC SỐ ĐÓ LÀ 30,60,90............1980,2010
VẬY CÓ TẤT CẢ 2010/30=67 SỐ VUA CHIA HẾT CHO 5 VÀ 6
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
count = 0
for i in range(10, 2001):
if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:
count += 1
print(count)