Số Hoàn Hảo - Em Yêu Tin Học

Trang chủ » Thuật Toán Tìm Số Hoàn Hảo Trong Pascal » Số Hoàn Hảo - Em Yêu Tin Học

Có thể bạn quan tâm

Close Menu Facebook Pinterest YouTube LinkedIn Flickr Tiêu điểm :
  • Hướng dẫn bỏ Unblock File Explorer (Windows 10/11)
  • Đạo đức và An toàn trong Thế giới Số
  • Lớp 1 – Ôn tập tin học HK1 2025-2026
  • Lớp 2 – Ôn tập tin học HK1 2025-2026
  • Lớp 3 – Ôn tập tin học HK1 2025-2026
  • Lớp 4 – Ôn tập tin học HK1 2025-2026
  • Lớp 5 – Ôn tập tin học HK1 2025-2026
  • Quan Điểm và Thiên Kiến IC3 Digital Literacy
Facebook YouTube Pinterest Flickr LinkedIn X (Twitter) Instagram WhatsApp EM YÊU TIN HỌC Em yêu tin học EM YÊU TIN HỌC Bài tập Pascal Số hoàn hảoEm Yêu Tin HọcBy Em Yêu Tin Học9 Tháng 7, 2018Updated:9 Tháng 7, 20189 Bình luận1 Min Read Facebook Twitter Pinterest LinkedIn Tumblr Email Thêm dòng, cột vào mảng hai chiều. Thêm dòng, cột vào mảng hai chiều.

Số hoàn hảo.

Số hoàn thiện (hay còn gọi là số hoàn chỉnh, số hoàn hảo hoặc số hoàn thành) là một số nguyên dương mà tổng các ước nguyên dương của nó (số nguyên dương chia hết cho nó) bằng chính nó.

Ví dụ:

  • Số 6 có ước nhỏ hơn nó là 1,2,3. Tổng là 1+2+3=6 vậy 6 là số hh.
  • Số 8 chia hết cho 1, 2, 4 tổng 1+2+4=7 → 8 không phải là số hh.
  • Số 28 chia hết cho 1, 2,4, 7, 14 tổng 1+2+4+7+14=28 → 28 là số hh.

Viết chương trình nhập vào một số n từ bàn phím thông báo ra màn hình số đó có phải là số hoàn hảo hay không (yêu cầu dùng hàm).

PROGRAM SoHoanHao; USES CRT; VAR n:INTEGER; FUNCTION KiemTra(x:INTEGER):BOOLEAN; VAR tam,i:INTEGER; BEGIN tam:=0; FOR i:= 1 TO (x DIV 2) DO IF x MOD i = 0 THEN tam:=tam+i; IF tam = x THEN KiemTra:=TRUE Else KiemTra:=False; END; BEGIN Clrscr; Write('Nhap so can kiem tra ');Readln(n); IF KiemTra(n) THEN Writeln('So ',n,' la so hoan hao') ELSE Writeln('So ',n,' khong phai la so hoan hao'); Readln; END. 3.9 68 votes Đánh giá bài viết Share. Facebook Twitter Pinterest LinkedIn Tumblr Email Previous ArticleGiải đề thi Quảng Ngãi 2018 Next Article Giải đề thi tin học trẻ Tp HCM 2018 Em Yêu Tin Học
  • Website
  • Facebook

٩(●̮̮̃•̃)۶ Không có lẽ yêu trên đời quá khó ٩(͡๏̯͡๏)۶ Mà thôi yêu cũng chẳng dễ chút nào! ٩(×̯×)۶

Related Posts

Chuyển đổi hệ số

Đếm số lần xuất hiện

Cấp số nhân, làm việc với file

Subscribe Thông báo khi có bình luận mới khi trả lời bình luận của tôi guest Label [+] Name* Email* WebSite URL guest Label [+] Name* Email* WebSite URL 9 Góp ý oldest newest most voted Inline Feedbacks View all comments phuc phuc 6 years ago

cach tim so hoan hao trong mang lam sao vay thay

0 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to phuc 6 years ago

Nếu đề là in các số hoàn hảo trong mảng ra thì chỉ cần thêm một vòng FOR vào là được For i:=1 to n do IF KiemTra(a[i]) ……

8 Trả lời Sinh Sinh 6 years ago

Số hoàn thiện là số tự nhiên có tổng các ước của nó (không kể chính nó) bằng chính nó. Viết chương trình kiểm tra xem một số tự nhiên n( n<1000) có phải là số hoàn thiện hay không? Ví dụ: 6 là số hoàn thiện vì 6 có các ước 1,2,3, 6 mà 1+2+3=6. Tệp vào gồm 1 số nguyên n. Tệp ra ghi số 1 nếu n là số hoàn thiện, ghi số 0 nếu n không là số nguyên tố. Tên bài Tệp vào Tệp ra SHT.cpp SHT.inp SHT.out Ví dụ 6 1 7 0 bài… Read more »

0 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to Sinh 6 years ago

Code ở trên của Pascal, hình như bạn muốn hỏi C++, cách làm cũng thương tự thôi.

4 Trả lời Quyền Quyền 6 years ago

Tại sạo lại chạy từ 1 đến x/2 vậy ak

1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to Quyền 6 years ago

Lớn hơn số đấy thì không chia hết được nữa.

0 Trả lời tuan tuan Reply to Em Yêu Tin Học 6 years ago

mik van chua hieu lam

-1 Trả lời Em Yêu Tin Học Em Yêu Tin Học Author Reply to tuan 6 years ago

Ví dụ số 100 thay vì chạy thử từ 1 đến 100 thì chỉ cần chạy từ 1 tới 100/2 = 50 thôi, vì lớn hơn số 50 nó không chia hết được nữa. Việc chạy từ 1 đến x/2 nhằm giảm số lần thực hiện vòng lặp, thay vì lặp 100 lần thì chỉ cần lặp 50 lần là đủ rồi.

12 Trả lời Tamtam Tamtam 6 years ago

bạn nào có thể giúp mình viết các bước giải của code này kh ạ

1 Trả lời
  • Bài Viết Mới
  • Phổ Biến
24 Tháng 12, 2025

Hướng dẫn bỏ Unblock File Explorer (Windows 10/11)

19 Tháng 12, 2025

Đạo đức và An toàn trong Thế giới Số

5 Tháng 12, 2025

Lớp 1 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 2 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 3 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 4 – Ôn tập tin học HK1 2025-2026

24 Tháng 4, 2016

Một số lệnh căn bản trong MSWLogo.

24 Tháng 4, 2016

Lệnh rẽ nhánh trong MSWLogo.

31 Tháng 7, 2016

MSWLogo Vẽ cờ đỏ sao vàng – Quốc kỳ Việt Nam

5 Tháng 1, 2018

Hướng dẫn giải một số bài tập Scratch.

8 Tháng 6, 2016

MSWLogo vẽ ngôi sao.

2 Tháng 9, 2016

Giải đề thi tài năng trẻ tin học toàn quốc 2016

Bình luận gần đây
  • Em Yêu Tin Học trong 01. Ôn Tập IC3 GS6 Level 3.
  • trần THuỷ trong 01. Ôn Tập IC3 GS6 Level 3.
  • ninh samsung trong Tổng hợp IC3 Spark level 1
  • Nguyễn Công Hưng trong Tổng hợp IC3 Spark level 2
  • Nguyễn Công Hưng trong Tổng hợp IC3 Spark level 2
Các bài trắc nghiệm

💥IC3 Spark -Level 1 Trắc nghiệm lập trình Scratch Trắc nghiệm lập trình MSWLogo Trắc nghiệm tin học văn phòng Trắc nghiệm ôn tập IC3 P1 Trắc nghiệm ôn tập IC3 P2 Living Online Spark Test LTTH cùng IC3 Spark Test IC3 GS5 -Computing Fundamentals IC3 GS6 -Level 1 IC3 GS6 -Level 2 (7,8) Module 4 - CNTT Tiểu học

Videos hướng dẫn
subscribeTheo dõi kênh Youtube« Prev1 / 16Next »loadingplay2 1 practice tasksplayLập trình với KudoplayPowerPoint - Chuyển động theo đường vẽ« Prev1 / 16Next »loading Submit

Type above and press Enter to search. Press Esc to cancel.

90Hãy để lại bình luận của bạn nhé!x()x| Trả lờiInsert

Từ khóa » Thuật Toán Tìm Số Hoàn Hảo Trong Pascal