Cod sursa(job #346482)
Utilizator | Oprea Valeriu-Florin FLORINSTELISTU | Data | 7 septembrie 2009 23:32:22 |
---|---|---|---|
Problema | Suma divizorilor | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 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;if b=0 then put:=0;
for i:=0 to b do
if i>1 then put:=a*put;
a:=put;s:=a;if a mod 2=0 then b:=a div 2 else b:=a div 3;
for put :=1 to b do
if a mod put=0 then s:=s+put;
write(g,s mod 9901);
close(f);close(g);end.