Pagini recente » Cod sursa (job #2953607) | Cod sursa (job #1578406) | Cod sursa (job #712193) | Cod sursa (job #3156315) | Cod sursa (job #763497)
Cod sursa(job #763497)
var a:array[1..100000]of boolean;
n,x,i,j,s,p:int64;
f,g:text;
begin
assign(f,'sum.in');reset(f);
assign(g,'sum.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,x);
for j:=1 to 2*x-1 do
a[j]:=true;
for j:=2 to 2*x-1 do
if a[j]= true then
if x mod j=0 then
for p:=1 to (2*x-1)div j do
a[p*j]:=false;
for p:=1 to 2*x-1 do
if a[p]=true then s:=s+p;
writeln(g,s,' '); s:=0;
end;
close(f);close(g);end.