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: asaleotestf@gmail.com
  • 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

 
[Phần 6] - Testing: Unit và Functional với PHPUnit

[Phần 6] - Testing: Unit và Functional với PHPUnit

So far we have explored a good amount of ground looking at a number of core concepts with regards to Symfony2 development. Before we continue adding features it is time to introduce testing.

9 lý do “ép” iPad 3 phải xuất hiện vào đầu năm 2012

9 lý do “ép” iPad 3 phải xuất hiện vào đầu năm 2012

Theo một số nhà phân tích, Apple sẽ phải cho iPad 3 ra mắt vào quý 1 năm 2012 để có thể tiếp tục chiếm lĩnh thị trường máy tính bảng.

5 cách để copywriter cần làm đối với Google

5 cách để copywriter cần làm đối với Google

Nội dung là phần không thể thiếu trong mỗi website, đặc biệt là khi thực hiện các chiến dịch SEO đòi hỏi lượng nội dung chất lượng.