b1. đếm số lượng số vừa chia hết cho 3 vừa chia hết cho 2 trong phạm vi từ 20 đến 1000.
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.
Câu 1:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 4=0 then t:=t+i;
writeln(t);
readln;
end.
Câu 2:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 20 do
if i mod 3=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Câu 1:
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if (i%4==0) t=t+i;
cout<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int i,dem;
int main()
{
dem=0;
for (i=1; i<=20; i++)
if ((i%2==1) and (i%3==0)) dem++;
cout<<dem;
return 0;
}
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 -----------------------
(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)
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.
count = 0
for i in range(10, 2001):
if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:
count += 1
print(count)
Program HOC24;
var d,i: integer;
begin
d:=0;
for i:=20 to 1000 do
if (i mod 2=0) and (i mod 3=0) then d:=d+1;
write(d);
readln
end.