zsx 2013-07-19 21:33:00
点我顶贴
收藏
删除
首页 | 题库 赛题 | 状态 比赛 | 排行 讨论 题解 | 团队 主题 个人信息 消息 注销 | OIBH 赞助我们
Announcement : RQNOJ添加题目规则公布
查看状态 Show Status
状态题目:大合数分解
题目编号:114-大合数分解 查看该题
状态: Accepted
测评机： Xeost[5]
得分： 100分
提交日期： 2009-10-28 17:47:00
有效耗时： 672毫秒
测试结果1: 通过本测试点|有效耗时156ms
测试结果2: 通过本测试点|有效耗时62ms
测试结果3: 通过本测试点|有效耗时63ms
测试结果4: 通过本测试点|有效耗时63ms
测试结果5: 通过本测试点|有效耗时62ms
测试结果6: 通过本测试点|有效耗时47ms
测试结果7: 通过本测试点|有效耗时47ms
测试结果8: 通过本测试点|有效耗时47ms
测试结果9: 通过本测试点|有效耗时63ms
测试结果10: 通过本测试点|有效耗时62ms
提交代码： var a:array[1..10000] of longint；
n:int64；
i,p:longint；
begin
read(n)；
i:=2；
repeat
if n mod i=0 then begin
n:=n div i；
inc(p)；
a[p]:=i；end else inc(i)；
until n=1；
for i:=1 to p do write(a[i],’ ’)；
end.