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.
uses crt;
var n,s:integer;
{--------------------chuong-trinh-con-nhap---------------------------}
procedure nhap(var a:integer);
begin
write('n='); readln(a);
end;
{-------------------chuong-trinh-con-tinh-tong-cac-chu-so-trong-1-so---------------------}
procedure tong(var x:integer);
var i,d,t,b,c,e:integer;
st:string;
begin
str(x,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],b,c);
t:=t+b;
end;
if t<10 then writeln(t)
else tong(t);
end;
{---------------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.
#include<bits/stdc++.h>
using namespace std;
#define ll long long
int main(){
ios_base::sync_with_stdio(0);cin.tie(0);
string s;cin>>s;
ll t;
while(1){
t=0;
for(ll i=0;i<s.size();i++)t+=s[i]-'0';
s=to_string(t);
if(s.size()==1)return cout<<s,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<<"Day la so hoan hao";
else cout<<''Day 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}"
#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;
}
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.