Pagini recente » Cod sursa (job #2246384) | Cod sursa (job #4911) | Cod sursa (job #1261504) | Cod sursa (job #2379340) | Cod sursa (job #1195366)
program sumasinr;
var f,g:text;
n,i,x:integer;
procedure ssn(x:integer);
var i,s,nr:integer;
begin
s:=1+x;
nr:=2;
for i:=2 to x div 2 do if x mod i=0 then begin
s:=s+i;
nr:=nr+1;
end;
writeln (g,nr,' ',s);
end;
begin
assign (f,'ssnd.in');
reset(f);
assign (g,'ssnd.out');
rewrite (g);
readln (f,n);
for i:=1 to n do begin
readln(f,x);
ssn(x);
end;
close(f);
close(g);
end.