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

 
Tại sao cần phải sửa chữa về Accessibility của website

Tại sao cần phải sửa chữa về Accessibility của website

I was amazed and slightly horrified. At the time, I was a web developer working for a federally funded non profit

Export và import Drupal 7 nodes như thế nào ?

Export và import Drupal 7 nodes như thế nào ?

There are lots of ways to export configuration from one Drupal site and import into another; however, there are few ways to do the same with content. Here's a quick tip which has worked well for me.

Steve Jobs, Mark Zuckerberg lọt “top” nhà cải cách vĩ đại nhất

Steve Jobs, Mark Zuckerberg lọt “top” nhà cải cách vĩ đại nhất

Steve Jobs, cố CEO của Apple được vinh danh là người đổi mới vĩ đại thứ 2 của mọi thời đại, sau Thomas Edison trong bảng xếp hạng Lemelson-MIT Invention Index 2012

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

 

Diet con trung