Cod sursa(job #744119)
| Utilizator |  Astalas Paul paul777 |
Data | 7 mai 2012 16:50:02 |
|---|---|---|---|
| Problema | Suma divizorilor | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.25 kb |
var f,g:text;a,b,i:longint;s,h:int64;
begin
assign(f,'sumdiv.in');reset(f);assign(g,'sumdiv.out');rewrite(g);
read(f,a,b);h:=1;
for i:=1 to b do h:=h*a;s:=1+h;
for i:=2 to h div 2 do
if h mod i=0 then s:=s+i;write(g,s mod 9901);
close(f);close(g);end.