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

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

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

Tìm các số tự nhiên nhỏ hơn hoặc bằng n mà sau khi làm phép phân tích ra thừa số nguyên tố có nhiều nhân tử nhất.

Ví dụ n=9 . Các số có nhiều nhân tử nhất sau khi làm phép phân tích là: 8 = 2.2.2

Program Phan_tich_nguyen_to_2;

Var n, Max, so, i:byte;

Function PTNT(n:integer):byte;

Var i,p:byte;

Begin

    i:=2;

    p:=0;

    While n>1 do if (n mod i)=0 then Begin p:=p+1; n:=n div i end else i:=i+1;

    PTNT:=p;

End;

Procedure PT(n:integer);

Var i:byte;

Begin

    i:=2;

    While n>1 do

    if (n mod i)=0 then

     Begin Write(i,'.'); n:=n div i end else i:=i+1;

End;


Begin

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

    Max:=0;

    For i:= 1 to n do if PTNT(i)>=Max then Begin Max:=PTNT(i); So:=i End;

    Write('So ',So,' co nhieu uoc nhat,',so,' = ');

    PT(So);

    Readln

End.
Bạn thấy bài viết này như thế nào?: 
Average: 2.5 (248 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

 
NASA đạt mốc 20.000 lượt theo đuôi trên Google+ chỉ trong vòng 4 ngày

NASA đạt mốc 20.000 lượt theo đuôi trên Google+ chỉ trong vòng 4 ngày

NASA đã vừa chia sẻ thông tin này trên trang Google+ của họ.

Sửa lỗi chia sẻ link Facebook không hiện ảnh thumbnail tháng 05.2019

Sửa lỗi chia sẻ link Facebook không hiện ảnh thumbnail tháng 05.2019

Mới đây Facebook đổi giao diện một chút với công cụ "khui" ra hình ảnh thumbnail đại diện nếu gặp lỗi khi chia sẻ link, vì thế có thể chúng ta sẽ lạ lẫm.

5,3 triệu máy Mac được bán ra vào Quý IV

5,3 triệu máy Mac được bán ra vào Quý IV

Doanh số của Apple có vẻ bị giảm, tuy nhiên trong quý này nó bắt đầu tăng trở lại. Theo báo cáo phân tích của Gene Munster thì đến cuối tháng 12 năm nay, doanh số bán ra của Apple có thể đạt tới 5.3 triệu máy.

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

 

Diet con trung