比赛代码 - COGS

比赛	防止颓废的小练习v0.1	评测结果	AAAAAATTTT
题目名称	质因数分解	最终得分	60
用户昵称	balala	运行时间	4.004 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2016-10-17 09:02:19

显示代码纯文本

var
n,m,i,j,k:longint;
begin
assign(input,'prime.in');reset(input);
assign(output,'prime.out');rewrite(output);
readln(n);m:=n;
for i:=2 to (n-1) do
   begin
   for j:=2 to (i-1) do
     if j mod i=0 then begin break;continue;end;
   if n mod i=0 then m:=i;
   end;
   writeln(m);
   
   close(input);close(output);
   end.