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.
def count_pairs_divisible_by_3(arr):
n = len(arr)
# Đếm số lượng số dư khi chia cho 3
count_mod = [0, 0, 0]
for num in arr:
count_mod[num % 3] += 1
# Trường hợp 0: Số dư 0 + Số dư 0
count_pairs = count_mod[0] * (count_mod[0] - 1) // 2
# Trường hợp 1: Số dư 1 + Số dư 2
count_pairs += count_mod[1] * count_mod[2]
# Trường hợp 2: Số dư 1 + Số dư 1 hoặc Số dư 2 + Số dư 2
count_pairs += count_mod[1] * (count_mod[1] - 1) // 2
count_pairs += count_mod[2] * (count_mod[2] - 1) // 2
return count_pairs
# Thử nghiệm
arr = [3, 5, 7, 9, 11, 13, 15]
result = count_pairs_divisible_by_3(arr)
print(f"Số lượng cặp số có tổng chia hết cho 3 là: {result}"
#include <bits/stdc++.h>
using namespace std;
long long a[10000],i,n,t;
int main()
{
freopen("avg.inp","r",stdin);
freopen("avg.out","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<fixed<<setprecision(1)<<(t*1.0)/(n*1.0);
return 0;
}
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
# Nhập số nguyên dương N từ bàn phím
N = int(input("Nhập số nguyên dương N: "))
# Khởi tạo dãy số nguyên
numbers = []
# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers
for i in range(N):
number = int(input("Nhập số thứ {}:".format(i+1)))
numbers.append(number)
# In ra dãy số đã nhập
print("Dãy số bạn đã nhập là: ", end="")
for number in numbers:
print(number, end=" ")
print()
# Tính tổng các số chia hết cho 3 và in ra màn hình
total = 0
for number in numbers:
if number % 3 == 0:
total += number
print("Tổng các số trong dãy chia hết cho 3 là: ", total)
const fi='dayso.inp';
fo='dayso.out';
var f1,f2:text;
a,b,c,d:array[1..100]of integer;
m,n,i,j,dem,kt,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
for i:=1 to m do
read(f1,a[i]);
readln(f1);
readln(f1,n);
for j:=1 to n do
read(f1,b[j]);
c[1]:=b[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[i]=c[j] then kt:=1;
if kt=0 then
begin
inc(dem);
c[dem]:=b[i];
end;
end;
dem1:=0;
for i:=1 to m do
for j:=1 to dem do
if a[i]=c[j] then
begin
inc(dem1);
d[dem1]:=a[i];
end;
if dem1=0 then writeln(f2,'no solution')
else begin
for i:=1 to dem1 do
write(f2,d[i]:4);
end;
close(f1);
close(f2);
end.