Cod sursa(job #188298)

Utilizator netedu_andreiFII Andrei Netedu netedu_andrei Data 7 mai 2008 20:05:20
Problema Suma divizorilor Scor 20
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 w 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.