Lập trình tìm và chiếu lên màn hình các cặp số hữu nghị trong phạm vi từ 1 đến 10000

Lập trình tìm và chiếu lên màn hình các cặp số hữu nghị trong phạm vi từ 1 đến 10000

CHUYÊN ĐỀ CHIA HẾT – SỐ NGUYÊN TỐ

Hai số tự nhiên A, B được coi là hữu nghị nếu như số này bằng tổng các ước số của số kia và ngược lại. Lập trình tìm và chiếu lên màn hình các cặp số hữu nghị trong phạm vi từ 1 đến 10000. (Lưu ý: số 1 được coi là ước số của mọi số còn mỗi số không được coi là ước số của chính nó).

>> Nhập vào một số nguyên dương n tìm số nguyên tố nhỏ nhất lớn hơn n

>> Cho số tự nhiên n hãy phân tích n thành tích các thừa số nguyên tố

>> Tìm số tự nhiên khi phân tích ra thừa số nguyên tố có nhiều nhân tử nhất

>> Viết chương trình cho phép phân tích một số ra thừa số nguyên tố

>> Viết chương trình thực hiện tách một số tự nhiên thành tổng của hai số nguyên tố

Cài đặt:

Program Cap_so_huu_nghi;

Var a,b,n,i:integer;

Function TU(a:integer):integer;

Var Tg,i:integer;

Begin

    Tg:=0;

    For i:=1 to a-1 do if (a mod i = 0) then Tg:=Tg + i;

    TU:=Tg;

End;

Begin

     Write('Nhap so n: ');Readln(n);

     For a:=1 to n do Begin b:=TU(a); if TU(b)=a then Writeln(a,'-',b)  end;

     Readln;

End.

Nhận xét: Các số hoàn chỉnh luôn là hữu nghị của chính nó.

Bạn thấy bài viết này như thế nào?: 
Average: 9.9 (264 votes)
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Docker làm virtualization cho Project Development và Testing trong Drupal

Docker làm virtualization cho Project Development và Testing trong Drupal

Docker has quickly become the favorite virtualization tool for many people including myself.

Hướng dẫn cách đóng góp Translations cho Drupal Projects

Hướng dẫn cách đóng góp Translations cho Drupal Projects

Learn how you can help with translation on Drupal.org from Drupalize.me's Amber Matz.

Làm gì để consulting project Drupal 7 thành công

Làm gì để consulting project Drupal 7 thành công

Soon after I started working at Lullabot, I got my first client, and like all clients this one had a problem. They were a university whose site was running on Drupal

Wordpress Freelancer

 

Wordpress Freelancer