Những câu hỏi liên quan
LQ
Xem chi tiết
QT
Xem chi tiết
NV
Xem chi tiết
PB
Xem chi tiết
CT
9 tháng 3 2019 lúc 2:55

Ta có Ư(12) = {1; 2; 3; 4; 6; 12}

1 + 2 + 3 + 4 + 6 = 16

Suy ra số 12 không phải là số hoàn chỉnh

Ta có Ư(28)= {1; 2; 4; 7; 14; 28}

1 + 2 + 4 + 7 + 14 = 28

Suy ra số 28 là số hoàn chỉnh

Ta có: Ư(476) = {1; 2; 4; 7; 14; 17; 28; 34; 68; 119; 238; 476}

1 + 2 + 4 + 7 + 14 + 17+ 28 + 34 + 68 + 119 + 238 = 532

Suy ra số 476 không phải số hoàn chỉnh

Bình luận (0)
CQ
28 tháng 6 2021 lúc 17:37

Ước của 20 là 1 ; 2 ; 4 ; 5 ; 10 

1 + 2 + 4 + 5 + 10 = 22 

Ước của 28 là 1 ; 2 ; 4 ; 7 ; 14 

1 + 2 + 4 + 7 + 14 = 28 

Ước của 45 là 

1 + 3 + 5 + 9 + 15 = 33 

Ước của 128 là 1 ; 2 ; 4 ; 8 ; 16 ; 32 ; 64 

1 + 2 + 4 + 8 + 16 + 32 + 64 = 127 

Vậy 28 là số hoàn chỉnh 

Bình luận (0)
 Khách vãng lai đã xóa
MB
Xem chi tiết
HN
Xem chi tiết
NT
26 tháng 4 2021 lúc 19:46

a)

uses crt;

var n,i,t,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i-1 do 

 if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.

Bình luận (0)
NT
26 tháng 4 2021 lúc 19:47

b)

uses crt;

var gt:real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

gt:=1;

for i:=1 to n do 

 gt:=gt*i;

writeln(gt:0:0);

readln;

end.

Bình luận (0)
LH
Xem chi tiết
ML
12 tháng 3 2023 lúc 21:57

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.

Bình luận (1)
TB
Xem chi tiết
SN
27 tháng 12 2015 lúc 19:00

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

Bình luận (0)
PN
Xem chi tiết
NT
16 tháng 3 2021 lúc 21:33

uses crt;

var n,i,t:integer;

begin

clrscr;

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 writeln(n,' la so hoan chinh')

else writeln(n,' khong la so hoan chinh');

readln;

end.

Bình luận (0)
HL
6 tháng 11 2021 lúc 13:58

program hoan_chinh;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n-1 do

 begin

 if n mod i = 0 then s:=s+i;

 end;

if s=n then writeln('1') {n là số chính phương thì viết 1}

else writeln('0');{n không là số chính phương thì viết 0}

end.

Bình luận (0)