Pagini recente » Cod sursa (job #3275953) | Cod sursa (job #1259534) | Cod sursa (job #1609279) | Diferente pentru problema/infinitepatternmatching intre reviziile 8 si 9 | Cod sursa (job #141165)
Cod sursa(job #141165)
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;
s:=s+q;
if q> 9901 then begin q:=q mod 9901;
s:=s mod 9901;
end;
end;
writeln(g,s+q mod 9901);
close(g);
end.