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 (301 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

 
Tuyệt vời với Drupal 8 Through Adoption - Drupal 8

Tuyệt vời với Drupal 8 Through Adoption - Drupal 8

Since making the decision to use Drupal 8 for all new projects Chapter Three has become even

70 Best Free Google Android Apps(P1)

Những ứng dụng chat từ android

Some months back we mentioned about 21 Best Google Android Applications, now today we present you 70 Free Google Android apps, which are divided in categories Like, Tools, Social, Entertainment, Travel and more.

Apple "dòm ngó" hãng công nghệ Anobit

Apple "dòm ngó" hãng công nghệ Anobit

Apple đang tích cực đàm phán mua lại công ty công nghệ bộ nhớ Anobit với mức giá có thể lên đến 500 triệu USD.

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

 

Diet con trung