K
Khách

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.

27 tháng 12 2015

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

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.

29 tháng 8 2023

cảm ơn bn đã giúp mik nhiều bn thông cảm

22 tháng 11 2016

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 ) 

22 tháng 11 2016

 Bài 1: n = 7

1 tháng 9 2021

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.