Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lương Thế Quyền
Xem chi tiết
Quang Sỹ Trần
Xem chi tiết
Nguyễn Hà Thảo Vy
Xem chi tiết
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
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

Capheny Bản Quyền
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 

Khách vãng lai đã xóa
My Bon
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Nguyễn Lê Phước Thịnh
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.

Ly Huỳnh
Xem chi tiết
Minh Lệ
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.

Trang Tritiny Betha
Xem chi tiết
✓ ℍɠŞ_ŦƦùM $₦G ✓
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

Phú Nhuận Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Hưng Lê
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.