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 :
  • Sự khác biệt giữa Bằng sáng chế và Bản quyền
  • Ghép nhiều file PowerPoint thành một
  • Tạo trắc nghiệm Google Form từ Word
  • Hướng Dẫn Tạo Google Form Từ Google Sheets
  • Chia Sẻ Giáo Án Môn Tin Học và Công Nghệ Lớp 5
  • KHBD – Giáo Án, Sách GV – Tin Học 5 CTST
  • ÔN TẬP CÔNG NGHỆ LỚP 4 – 2024
  • Trắc nghiệm Lăng Ông Bà Chiểu
Facebook YouTube Pinterest Flickr LinkedIn X (Twitter) Instagram 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ảoĐình TrọngBy Đình Trọng9 Tháng bảy, 2018Updated:9 Tháng bảy, 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 67 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 Đình Trọng
  • 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 5 years ago

cach tim so hoan hao trong mang lam sao vay thay

0 Trả lời Đình Trọng Đình Trọng Author Reply to  phuc 5 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 5 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 Đình Trọng Đình Trọng Author Reply to  Sinh 5 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 5 years ago

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

1 Trả lời Đình Trọng Đình Trọng Author Reply to  Quyền 5 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  Đình Trọng 5 years ago

mik van chua hieu lam

-1 Trả lời Đình Trọng Đình Trọng Author Reply to  tuan 5 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 4 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
  • Phổ Biến
  • Bài Viết Mới
24 Tháng tư, 2016

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

24 Tháng tư, 2016

Lệnh rẽ nhánh trong MSWLogo.

31 Tháng bảy, 2016

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

8 Tháng sáu, 2016

MSWLogo vẽ ngôi sao.

5 Tháng Một, 2018

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

2 Tháng chín, 2016

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

17 Tháng chín, 2024

Sự khác biệt giữa Bằng sáng chế và Bản quyền

15 Tháng chín, 2024

Ghép nhiều file PowerPoint thành một

2 Tháng chín, 2024

Tạo trắc nghiệm Google Form từ Word

1 Tháng chín, 2024

Hướng Dẫn Tạo Google Form Từ Google Sheets

29 Tháng tám, 2024

Chia Sẻ Giáo Án Môn Tin Học và Công Nghệ Lớp 5

24 Tháng bảy, 2024

KHBD – Giáo Án, Sách GV – Tin Học 5 CTST

Bình luận gần đây
  • Vô Danh trong IC3 Control Panel
  • Đình Trọng trong Lập trình Scratch
  • Kn trong Lập trình Scratch
  • Đình Trọng trong Lập trình Scratch
  • Trương Nhã Kỳ trong Lập trình Scratch
Các bài trắc nghiệm

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