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 HOC24;
var i,t,k,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0; k=0;
while k=0 do
begin
n:=n+1;
for i:=1 to n do if n mod i=0 then t:=t+i;
if t=n then
begin
write(n);
k:=k+1
end else t:=0;
end;
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n/2;i++)
if (n%i==0) t=t+i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<''Day khong la so hoan hao";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n/2;i++)
if (n%i==0) t=t+i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<''Day khong la so hoan hao";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1;i<=n/2;i++)
if (n%i==0) t=t+i;
if (t==n) cout<<"la so hoan hao";
else cout<<"khong la so hoan hao";
return 0;
}
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}"
input: Dãy số nguyên
Output: Kiểm tra xem dãy có đối xứng không
*Thuật toán
Bước 1: Nhập n và nhập dãy số
Bước 2: i←1; kt←true;
Bước 3: Nếu a[i]<>a[n-i+1] thì kt←false;
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Nếu kt=true thì đây là dãy đối xứng và ngược lại
Bước 7: Kết thúc
Program HOC24;
var n,i,t: longint;
begin
write('Nhap N : '); readln(n);
t:=0;
For i:=1 to n-1 do if n mod i=0 then t:=t+i;
if t<=n then write('YES') else write('NO');
readln
end.