Những câu hỏi liên quan
minh
Xem chi tiết
Đức Thắng
Xem chi tiết
Phía sau một cô gái
22 tháng 7 2023 lúc 19:56

program so_hoan_hao;

var

       n, tong_uoc, i: integer;

begin

       writeln('Nhap vao mot so nguyen duong n:');

       readln(n);

       tong_uoc := 0;

       for i := 1 to n-1 do

       begin

              if n mod i = 0 then

                     tong_uoc := tong_uoc + i;

       end;

       if tong_uoc = n then

              writeln('YES')

       else

              writeln('NO');

end.

Bình luận (0)
Minh Ngọc
Xem chi tiết
Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 13:58

{PROGRAM bai_tap;
USES crt ;
VAR i , n, 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 write(n,' la so hoan chinh');
  else Writeln(n,' Khong la so hoan chinh');
  Readlnnline Pascal Compiler.
begin    
  End,
Readlnnline
END.

}

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 0:08

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2; i++) 

if (n%i==0) t=t+i;

if (t==n) cout<<"YES";

else cout<<"NO";

return 0;

}

Bình luận (0)
Phạm Thanh Thảo
Xem chi tiết
Phạm Khánh Nam
11 tháng 8 2021 lúc 9:38

+) Các ước của 10 (không kể chính nó) là 1; 2; 5 và 1 + 2 + 5 = 8 ≠ 10 nên 10 không là số hoàn hảo.

+) Các ước của 28 (không kể chính nó) là: 1; 2; 4; 7; 14 và 1 + 2 + 4 + 7 + 14 = 28 nên 28 là số hoàn hảo.

+) Các ước của 496 (không kể chính nó) là 1; 2; 4; 8; 16; 31; 62; 124; 248 và 1 + 2 + 4 + 8 + 16 + 31 + 62 + 124 + 248 = 496 nên 496 là số hoàn hảo.

Vậy trong các số trên có 28 và 496 là số hoàn hảo.

 

 

Bình luận (0)
Quang Sỹ Trần
Xem chi tiết
Trí Nguyễn
Xem chi tiết
Phía sau một cô gái
7 tháng 7 2023 lúc 20:19

program bai_toan;

var

      N, i, sum: integer;

begin

      write('Nhap so N: ');

      readln(N);

      write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');

      for i := 1 to N - 1 do

            if N mod i = 0 then

                  write(i, ' ');

      writeln;

      sum := 0;

      for i := 1 to N - 1 do

      begin

            if N mod i = 0 then sum := sum + i;

      end;

      if sum = N then writeln(N, ' la so hoan hao')

      else writeln(N, ' khong phai la so hoan hao');

      writeln;

      writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');

      for i := 1 to N do

      begin

            sum := 0;

            for j := 1 to i - 1 do

            begin

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

            end;

            if sum = i then writeln(i);

      end;

      readln;

end.

Bình luận (0)
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.

Bình luận (1)
Nguyễn Thiên Trang
Xem chi tiết
Le Sy Hao
3 tháng 12 2016 lúc 16:46

a

ta có 1 số hoàn hảo = tổng các ước = 2 lần nó

ta có các ước của 28=[1,2,,4,7,14,28]

mà tổng các tích của nó là 1+2+4+7+14+28=56=28x2

nên 28 là số hoàn hảo​​

b

gọi a1,a2,a3,......ak là ước của n

vì n hoàn hảo nên

[n:a1]+[n:a2]+..................+[n:ak]=2n

=[nx[1;a1]+nx[1:a2]+...............+nx[1:ak]=2n

=nx[1;a1+1:a2+1:a3+...............+1:ak]=2n

nên [1;a1+1;a2+1;a3+...............+1:ak]=2

mình chỉ giúp được bạn câu a,b thôi  chứ không giúp được câu c xin lỗi nhé

Bình luận (0)
đỗ minh hiếu
Xem chi tiết
ghgfghthjh
3 tháng 11 2017 lúc 16:13

bạn giúp mình tr đi

Bình luận (0)