Cod sursa(job #346487)

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