Pagini recente » Cod sursa (job #40196) | Cod sursa (job #315450) | Cod sursa (job #2975774) | Cod sursa (job #736528) | Cod sursa (job #603198)
Cod sursa(job #603198)
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,' ',s+n+1);
k:=0; s:=0;
end;
close(fo);
end.