Số tự nhiên n có tổng các ước là n ( không kể n). Tìm n, biết n= p.q trong đó p,q là các số nguyên tố
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.
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.
bai 1
do n nguyen to va n la STN co 1 chu so . dong thoi 4 va 12 chăn nên để n+4 va n+12 nghuyen to thi n lẻ
do 12 chia het cho 3 nen n ko la 3 ,
do 4+5=9 chia het cho 3 nen nko la 5
neu n=7 thi n nguyen to va n + 4 = 11 , n+12 = 17 deu nguyen to (Thoa man)
vay n= 7 la tn
(mik lam nhu vay ko biet co dug ko ? nhung mik nghi la nhu vay )
program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
clrscr;
repeat
write('nhap n:');readln(n);
if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
until (n>0)and(n<10000);
writeln('cac uoc so la so tu nhien cua ',n,' la:');
for i:=1 to n do
if n mod i=0 then write(i,' ');
writeln;
dem:=0;
for i:=2 to n do
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then inc(dem);
end;
if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then write(i,' ');
end;
if dem=0 then write(0);
readln;
end.
n=p.q
mà p;q là các số nguyên tố
=>Ư(n)={1;p;q;n)
=>n=1+p+q=pq
=>1+q=pq-p
=>1+q=p(q-1)
=>2+q-1=p(q-1)
=>p(q-1)-(q-1)=2
=>(p-1)(q-1)=2
2=1.2
=>p-1=1 hoặc p-1=2
p-1=1=>p=2;q-1=2=>p=3
=>n=3+2+1=6
p-1=2=>p=3;q-1=1=>q=2
=>n=3+2+1=6
Vậy n=6