记录编号 65449 评测结果 AAAAAAAAAA
题目名称 [NOIP 2012PJ]质因数分解 最终得分 100
用户昵称 Gravatar郭垚池 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-07-26 16:51:04 内存使用 0.17 MiB
显示代码纯文本
program k;    
    var
    n,i:longint;
    begin
    assign(input,'prime.in');
    assign(output,'prime.out');
    reset(input);
    rewrite(output);
    readln(n);
    for i:=2 to 44900 do
    if n mod i=0 then
    break;
    writeln(n div i);
    close(input);
    close(output);
    end.