Cod sursa(job #470631)
| Utilizator |  robert ciobotaru robertc |
Data | 14 iulie 2010 22:06:27 |
|---|---|---|---|
| Problema | Suma divizorilor | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
{suma div}
program suma_div;
var a,b,s,m,i:integer;
f1,f2:text;
begin
assign(f1,'sumdiv.in');reset(f1);
assign(f2,'sumdiv.out');rewrite(f2);
read(f1,a); read(f1,b);
m:=1;
for i:=1 to b do
m:=m*a;
s:=0;
for i:=1 to m do
if m mod i=0 then s:=s+i;
write(f2,s);
close(f1);
close(f2);
end.