Cod sursa(job #516701)
Utilizator | Sireanu Roland sharky12592 | Data | 25 decembrie 2010 18:51:41 |
---|---|---|---|
Problema | Suma divizorilor | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 kb |
PROGRAM divizori;
var S,I,A,B,Rest,N:integer;
FI,FO:text;
Function Suma_div(N:integer):integer;
var i,S:integer;
Begin
S:=0;
For i:=1 to N do
if N MOD i=0 then S:=S+i;
Suma_div:=S;
end;
Begin
N:=1;
Assign(FI,'SumDiv.in'); Reset(FI);
Assign(FO,'SumDiv.out'); Rewrite(FO);
Read(FI,A,B);
Close(FI);
For i:=1 to B do
N:=N*A;
S:=Suma_Div(N);
Rest:=S MOD 9901;
Writeln(FO,Rest);
close(FO);
end.