tìm số tự nhiên không vượt quá 777 mà có số các ước số lớn nhất
1 bài cũ
Bắt đầu bởi hoang tuan anh, 15-01-2008 - 21:54
#1
Đã gửi 15-01-2008 - 21:54
hoang tuan anh
-
- Thành viên
-
- 854 Bài viết
^^
HTA
dont put off until tomorrow what you can do today
#2
Đã gửi 19-01-2008 - 17:50
Non_Stop
-
- Thành viên
-
- 86 Bài viết
LTV School
tìm số tự nhiên không vượt quá 777 mà có số các ước số lớn nhất
$6!=720$
P.M.K
#3
Đã gửi 20-01-2008 - 22:04
pnt
-
- Thành viên
-
- 208 Bài viết
Thượng sĩ
Ta có thể dùng phần mềm Maple 9.0 để giải quyết bài toán này:
with(numtheory):
> MaxNumberOfDivisors:=proc(n::posint)
> local i,x::posint;
> x:=1;
> for i from 1 to n
> do
> x:=`if`(tau(x)>tau(i),x,i);
> end do;
> print(x);
> end proc;
>MaxNumberOfDivisors(777);
720
Vậy số cần tìm là 720
with(numtheory):
> MaxNumberOfDivisors:=proc(n::posint)
> local i,x::posint;
> x:=1;
> for i from 1 to n
> do
> x:=`if`(tau(x)>tau(i),x,i);
> end do;
> print(x);
> end proc;
>MaxNumberOfDivisors(777);
720
Vậy số cần tìm là 720
độc lập ,tự do muôn năm!!!!!!!!!!!!!
1 người đang xem chủ đề
0 thành viên, 1 khách, 0 thành viên ẩn danh
