Cod sursa(job #23250)

Utilizator Tase_CCapalna Tanase Tase_C Data 28 februarie 2007 15:21:34
Problema Divizori Primi Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
var p,s:int64;
    a,b,i:longint;
begin
assign(input,'sumdiv.in');reset(input);
assign(output,'sumdiv.out');rewrite(output);
read(a,b);p:=1;
 for i:=1 to b do p:=p*a;
 for i:=1 to trunc(sqrt(p)) do
  if p mod i=0 then begin s:=s+i;s:=s+(p div i);end;
writeln(s);
close(input);close(output);
end.