Cod sursa(job #346487)
Utilizator | Data | 7 septembrie 2009 23:59:49 | |
---|---|---|---|
Problema | Suma divizorilor | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.35 kb |
program suma_divizorilor;
var a,b,put,i,s:longint;f,g:text;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
readln(f,a,b);put:=a;
for i:=2 to b do
put:=a*put;
a:=put;s:=a+1;
for put :=2 to a div 2 do
if a mod put=0 then s:=s+put;
write(g,s mod 9901);
close(f);close(g);end.