0
Je travaille en Pascal, je ne comprends pas pourquoi je reçois une erreur NZEC (Non Zero Exit Code) quand je soumets mon problème. Sur mon PC cela fonctionne parfaitement. Pouvez-vous me donner votre opinion s'il vous plaît?Pourquoi une erreur NZEC se produit-elle?
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.
Envoi il où? Ce juge en ligne Sphère (SPOJ) est-il lié? – Nifle
Pourriez-vous s'il vous plaît ajouter plus d'informations, comme l'endroit où vous le soumettez et avec quelle version de Pascal vous le compilez et les versions respectives du système de "soumission"? –