Cod sursa(job #346488)
Utilizator | Data | 8 septembrie 2009 00:02:17 | |
---|---|---|---|
Problema | Suma divizorilor | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.35 kb |
program p_a_la_b;
var q,j,p,nr,s:longint;f,g:text;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
read(f,nr,p);
q:=1;
for j:=1 to p do begin
q:=q*nr;
end;s:=q+1;
for j:=2 to q div 2 do begin
if q mod j=0 then s:=s+j;end;
write(g,s mod 9901); close(f);close(g);
end.