记录编号 216332 评测结果 AAAAAAAAAA
题目名称 [NOIP 2012PJ]质因数分解 最终得分 100
用户昵称 Gravatarwwzdsg. 是否通过 通过
代码语言 Pascal 运行时间 0.021 s
提交时间 2015-12-28 19:34:36 内存使用 0.17 MiB
显示代码纯文本
var
	n,i:longint;
begin
assign(input,'prime.in');reset(input);
assign(output,'prime.out');rewrite(output);
	readln(n);
	for i:=2 to n do
	if (n mod i)=0 then break;
	write(n div i);
	close(input);close(output);
end.