记录编号 50507 评测结果 AAAAAAAAAA
题目名称 [NOIP 2012PJ]质因数分解 最终得分 100
用户昵称 GravatarTA 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2012-11-23 22:42:31 内存使用 0.17 MiB
显示代码纯文本
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.