PersonalCorpus 版 (精华区)

寄信人: No (hi)
标  题: 1049
发信站: 哈工大紫丁香 (2002年03月13日10:59:22 星期三)
来  源: mtlab4.hit.edu.cn 

160845 03:02:02 13 Mar 2002
Bozhang,HIT,P.R.China 1049 Pascal Accepted 0.08 sec 53K

var
    sum,p:array[1..1230] of word;
    i,j,k,m:integer;
    f:boolean;
begin
    p[1]:=2; k:=1;
    for i:=3 to 10000 do begin
        f:=true;
        for j:=1 to k do if i mod p[j]=0 then begin f:=false; break end;
        if f then begin
            inc(k); p[k]:=i;
        end;
    end;
    fillchar(sum,sizeof(sum),0);
    for i:=1 to 10 do begin
        readln(j);
        if j=1 then continue;
        m:=1;
        while (j>=p[m]) and (m<1230) do if j mod p[m]=0 then begin
            inc(sum[m]); j:=j div p[m] end else inc(m);
    end;
    k:=1;
    for i:=1 to 1229 do k:=k*(sum[i]+1);
    writeln(k mod 10);
end.

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]
--
※ 转寄:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mtlab4.hit.edu.cn]