Cod sursa(job #301445)
| Utilizator |  Berceanu Cristian Cristian_B |
Data | 8 aprilie 2009 11:11:25 |
|---|---|---|---|
| Problema | Suma divizorilor | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
var i,n,m:longint;
p,s:int64;
f,g:text;
procedure load;
begin
assign(f,'sumdiv.in');
reset(f);
readln(f,n,m);
closE(f);
assign(g,'sumdiv.out');
rewrite(g);
end;
BEGIN
load;
p:=1;s:=0;
for i:=1 to m+1 do
begin
s:=s+p;
p:=p*n;
end;
close(g);
END.