Cod sursa(job #1195368)
Utilizator | Sorin-Gabriel maricasorin | Data | 6 iunie 2014 23:03:01 |
---|---|---|---|
Problema | Suma si numarul divizorilor | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.38 kb |
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.