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.
count = 0
for i in range(10, 2001):
if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:
count += 1
print(count)
a, Xác định bài toán:
+Input: Dãy số a1,….,an và (0,5đ)
+Output: Số lượng số hạng trong dãy số a1,….,an có giá trị bằng 9 (0,5đ)
b, Thuật toán:
Bước 1.Nhập N và dãy số a1,….,an;
Bước 2. i ←1; n ← 0; (0,25đ)
Bước 3. Nếu aithì n ←n+1;
Bước 4. i → i+1 (0,25đ)
Bước 5. Nếu i > N thì thông báo số lượng số hạng bằng k trong dãy đã cho là n và kết thúc; (0,25đ)
Bước 6. Quay lại bước 3.
Bước 1: Nhập n và nhập dãy số
Bước 2: dem←0; i←1;
Bước 3: Nếu a[i] mod 3=0 và a[i] mod 5=0 thì dem←dem+1;
i←i+1;
Bước 4: Nếu i<=n thì quay lại bước 3
Bước 5: xuất dem
Bước 6: Kết thúc
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t=t+i;
cout<<t;
return 0;
}
tong = 0
for i in range(1, 101):
if i % 3 == 0 and i % 5 == 0:
tong += i
print("Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến 100 là", tong)
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.
#include <bits/stdc++.h>
using namespace std;
int main()
{
long a,b,x,dem,i;
cout<<"a="; cin>>a;
cout<<"b="; cin>>b;
cout<<"x="; cin>>x;
dem=0;
for (i=a; i<=b; i++)
if (i%x==0) dem++;
cout<<dem;
return 0;
}
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.