Cod sursa(job #346482)

Utilizator FLORINSTELISTUOprea 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.