为什么我会收到NZEC错误?

时间:2010-03-07 15:25:58

标签: pascal freepascal

我在Pascal工作,我不明白为什么我在提交问题时遇到NZEC(非零退出代码)错误。在我的电脑上它完美无缺。你能告诉我你的意见吗?

program super_factor_sum;
var k,i,j,s:longint;   f,g:text;

function prim(x:integer):boolean; var d:longint;
begin
prim:=true;
for d:=2 to x div 2 do if x mod d=0 then prim:=false;
end;

begin assign(f,'input.txt'); reset(f); assign(g,'output.txt'); rewrite(g);
while not eof(f) do
begin readln(f,k);  s:=0;  i:=2;
      while (k<>1) or (i<=k) do
            begin if (prim(i)) and (k mod i=0) then
                       begin j:=0;
                             repeat k:=k div i; j:=j+1;
                             until k mod i<>0;
                             s:=s+i*j; i:=i+1;
                       end
                             else i:=i+1;
            end;
      write(s);   writeln(g,s);
end;
close(f);  close(g);
end.

1 个答案:

答案 0 :(得分:0)

Avoid NZEC error in Erlang in SPOJ

“模块名称总是必须进行测试,入口点应该是函数main。例如,在编译之后它应该按照测试运行:main()”