Cod sursa(job #1195368)

Utilizator maricasorinSorin-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.