Pagini recente » Cod sursa (job #390720) | Cod sursa (job #2429016) | Cod sursa (job #2687336) | Cod sursa (job #1659075) | Cod sursa (job #346482)
Cod sursa(job #346482)
program suma_divizorilor;
var a,b,put,i,s:longint;f,g:text;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
readln(f,a,b);put:=a;if b=0 then put:=0;
for i:=0 to b do
if i>1 then put:=a*put;
a:=put;s:=a;if a mod 2=0 then b:=a div 2 else b:=a div 3;
for put :=1 to b do
if a mod put=0 then s:=s+put;
write(g,s mod 9901);
close(f);close(g);end.