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: 10 (3 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

 
Khoảng 20.000 website có thể đã bị bẻ khóa và nhiễm mã độc

Khoảng 20.000 website có thể đã bị bẻ khóa và nhiễm mã độc

Google cảnh báo, khoảng 20.000 website có thể đã bị bẻ khóa và nhiễm mã độc thông qua ngôn ngữ JavaScript.

Google sitelinks vẫn còn là bí ẩn thú vị

Google sitelinks vẫn còn là bí ẩn thú vị

Google sitelinks luôn là bí ẩn thú vị dù đôi khi mang đến phiền toái. Rất nhiều bài viết, thảo luận từ các chuyên gia SEO, nhà quản trị web từ xưa đến nay về Google sitelinks cũng chỉ dừng lại ở mức… phỏng đoán (SEO nói chung cũng luôn bí ẩn, nhưng ít ra Google đã chia sẻ tài liệu và rất nhiều bài viết chi tiết về từng khía cạnh trong đó).

Sử dụng nginx làm proxy vượt tường lửa

Sử dụng nginx làm proxy vượt tường lửa

Lướt Facebook chập chờn, sử dụng public proxy lại chậm chạp. Nếu bạn có một dedicated server hay một vps, chúng ta có thể cài nginx để làm một http proxy hỗ trợ việc truy cập Facebook.