Cod sursa(job #188297)
Utilizator | Data | 7 mai 2008 20:04:42 | |
---|---|---|---|
Problema | Suma divizorilor | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.52 kb |
program p12;
var f,g:text;
i,a,b,s,w:longint;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
readln(f,a,b);
w:=1;
for i:=1 to b do
begin
w:=w*a;
if w>9901 then w:=w mod 9901;
end;
s:=1+w;
for i:=2 to q div 2 do
if w mod i =0 then
begin
s:=s+(i mod 9901);
if s>9901 then s:=s mod 9901;
end;
writeln(g,s);
close(g);
end.