Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh. Ví dụ :6 có các ước nhỏ hơn nó là 1,2,3. Tổng là 1+2+3=6.Viết chương trình xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không.
Quảng cáo
1 câu trả lời 4167
Program so_hoan_chinh;
Uses crt;
Var i,n,S: integer;
Begin
Write ( ' nhap n la:',); readln (n)
S:=0
For i:=1 to n-1 do
If I mod i= 0 then S:=S+i;
If S=n then write (n, ' do la so hoan chinh') else write (n,' khong phai la so hoan chinh');
Readln
End.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45024 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34480
-
Đã trả lời bởi chuyên gia
30258
-
Hỏi từ APP VIETJACK27227
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
21902
-
보고 싶어요
2885 điểm
-
meluynsu 🤗
1435 điểm
-
🐟祖尼⚡
1300 điểm
-
❤︎루미❤︎
1100 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
1035 điểm
-
`color{blue}text{HuyTùng☢`
1015 điểm
-
Ben 10K
645 điểm
-
≽^•⩊•^≼ 🐾😻
590 điểm
-
⋅˚₊‧ ଳ⋆.࿔*:･Ⓗồⓝⓖ´꒳`
575 điểm
-
𝘳𝘺𝘯.𝘭𝘦𝘦ッ
550 điểm
-
Kiều Anh 525 điểm
-
devestro
520 điểm
-
Lộc Hữu 515 điểm
-
`有缘再相见 `
480 điểm
-
jgdmaX
345 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8319
-
3 năm trước7827
-
3 năm trước6644
-
3 năm trước6545
-
3 năm trước6362
