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 (300 votes)
Ảnh của Tommy Tran

Tommy 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

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

 
Android

Tỷ lệ sử dụng Android và iOS toàn cầu rất cao

Theo thống kê của hãng Flurry, tỷ lệ thiết bị chạy hệ điều hành iOS và Android trên toàn cầu đã vượt qua tất cả thiết bị điện tử tiêu dùng từ trước cho tới nay xuyên suốt quá trình lịch sử phát triển của công nghệ.

An Inside Look at Apple’s New In-Store Pickup Service

An Inside Look at Apple’s New In-Store Pickup Service

A few weeks ago, Apple updated its retail store app with multiple new features. The two that really stood out were the EasyPay self-checkout option and the new in-store pickup service.

Asus Zenbook UX21 “so găng” cùng Macbook Air 11.6 inch

Asus Zenbook UX21 “so găng” cùng Macbook Air 11.6 inch

Cầm trên tay dòng laptop Zenbook của Asus, thì rất dễ bị lầm lẫn với Macbook Air vì thiết kế nhôm unibody nguyên khối của nó, các cạnh được vát nhọn dần từ bản lề máy đến cạnh màn hình tương đối giống nhau.

Công ty diệt chuột T&C

 

Diet con trung