Pagini recente » Borderou de evaluare (job #1681169) | Cod sursa (job #3190390) | Istoria paginii problema/lucky7 | Cod sursa (job #2602626) | Cod sursa (job #141151)
Cod sursa(job #141151)
program p12;
var f,g:text;
i,a,b,s,j,q:longint;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
readln(f,a,b);
q:=1; s:=1;
for i:=1 to b do
begin
q:=q*a;
if q> 9901 then q:=q mod 9901;
end;
for j:=2 to trunc (sqrt(q)) do
if q mod j=0 then s:=s+j;
writeln(g,s+q mod 9901);
close(g);
end.