Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register
北京大学《ACM/ICPC大学生程序设计竞赛训练》暑期课面向全球招生!

Re:这题真么做啊,貌似组合数学,但不会,有人讲讲思路吗

Posted by xuanpo at 2006-03-07 18:46:28 on Problem 2603
In Reply To:这题真么做啊,貌似组合数学,但不会,有人讲讲思路吗 Posted by:fjnu_jxd_010 at 2005-09-10 09:48:41
var a:array[1..10000] of byte;  
  i,j,m:integer;
begin  for i:=1 to 10 do 
 begin
    
    read(m);
 
       j:=2;
   
     while m>1 do
 
       begin
         
    while m mod j=0 do
  
            begin 
     
                   m:=m div j;
 
                       inc(a[j]);
 
             end ;
      
       inc(j);
     
   end;
 
 end;
 
 m:=1;
 
 for i:=2 to 10000 do
 
     m:=m*(a[i]+1) mod 10; 
 writeln(m);
end.

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator