Pagini recente » Cod sursa (job #2172512) | Cod sursa (job #3267680) | Cod sursa (job #2205260) | Cod sursa (job #30286) | Cod sursa (job #603200)
Cod sursa(job #603200)
Program suma_numaru_diviz;
var a:array [1..1000000] of boolean;
n,k,s,t:int64;
i,j:longint;
fi,fo:text;
begin
assign(fi,'ssnd.in');
assign(fo,'ssnd.out');
reset(fi);
rewrite(fo);
readln(fi,t);
for i:=2 to 100000 do
if not a[i] then
for j:=2 to n div i do
a[i*j]:=true;
for i:=1 to t do begin
readln(fi,n);
for j:=2 to n div 2 do
if (a[j]=false) and (n mod j=0) then begin
inc(k);
s:=s+j;
end;
writeln(fo,k+2 mod 9973,' ',s+n+1 mod 9973);
k:=0; s:=0;
end;
close(fo);
end.