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.
Hiện tại mình đang theo:
1. Question.AI: ứng dụng học toán
2.Falou: học nhiều ngôn ngữ nha
3.Easy English: nghe báo tiếng anh
4.Easy German: đọc báo tiếng đức
5.Migii TOEIC@: học toeic
6.Hanzii Dict: từ điển tiếng trung
7.Migii HSK: học tiếng trung
8.Kiến Guru: hệ thống hóa kiến thức các môn
9.Oxford Dictionary: từ điển tiếng anh
10.Duolingo: ứng dụng học tiếng anh
#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
int tongchuso(long long n)
{
int t=0;
while (n>0)
{
int x=n%10;
t=t+x;
n=n/10;
}
return(t);
}
//chuongtrinhchinh
int main()
{
freopen("sonut.inp","r",stdin);
freopen("sonut.out","w",stdout);
cin>>n;
int t=tongchuso(n);
while (t>10)
{
t=tongchuso(t);
}
cout<<t;
return 0;
}
uses crt;
var i,n,t,j,kt:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
if n mod i=0 then
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
write(t);
readln;
end.
Dưới đây là một ví dụ về chương trình Pascal để tính tổng các ước số nguyên tố của một số tự nhiên n:
```pascal
program TinhTongUocSoNguyenTo;
var
n, i, j, sum: integer;
isPrime: boolean;
begin
write('Nhap vao so tu nhien n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if n mod i = 0 then // Kiểm tra i có là ước số của n không
begin
isPrime := true;
for j := 2 to trunc(sqrt(i)) do // Kiểm tra i có phải là số nguyên tố không begin if i mod j = 0 then begin isPrime := false; break; end; end; if isPrime then // Nếu i là số nguyên tố, cộng vào tổng sum := sum + i; end;
end;
writeln('Tong cac uoc so nguyen to cua ', n, ' la: ', sum);
end.
```
Chương trình trên sẽ yêu cầu bạn nhập vào số tự nhiên n, sau đó tính tổng các ước số nguyên tố của n và hiển thị kết quả.
?