Cod sursa(job #346467)
| Utilizator | Data | 7 septembrie 2009 22:00:36 | |
|---|---|---|---|
| Problema | Suma divizorilor | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.42 kb |
program p_a_la_b;
var v:array[1..10000]of longint;
i,n,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);n:=1;
v[1]:=1;
for j:=1 to p do begin
for i:=1 to n do
v[i]:=v[i]*nr;
end;s:=1;
for j:=2 to v[i] do begin
if v[i] mod j=0 then s:=s+j;end;
write(g,s mod 9901); close(f);close(g);
end.