Cod sursa(job #7895)
| Utilizator |  Mihai Botezatu Catalin bota |
Data | 22 ianuarie 2007 21:49:06 |
|---|---|---|---|
| Problema | Suma divizorilor | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
var a,b,p,s,j,i:longint;
n,m:text;
r:integer;
begin
assign(n,'sumdiv.in');
reset(n);
read(n,a);
read(n,b);
close(n);
p:=1;s:=0;
for i:=1 to b do
p:=p*a;
for j:=1 to p do
if p mod j=0 then s:=s+j;
r:=s mod 9901;
assign(m,'sumdiv.out');
rewrite(m);
write(m,r);
close(m);
end.
