Cod sursa(job #545166)

Utilizator darius96pop darius darius96 Data 2 martie 2011 20:22:56
Problema Suma si numarul divizorilor Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.4 kb
var  t,a,i,s,d,j,b:integer;
begin
 assign(input,'ssnd.in');reset(input);
 assign(output,'ssnd.out');rewrite(output);
 readln(t);
 for i:=1 to t do begin
 read(a);
 s:=0;d:=0;b:=0;
    for j:=1 to a do begin
        if a mod j =0 then begin
                        inc(d);
                        s:=s+j;
        end;    end;
  writeln(d,' ',s mod 9973);
 end;
 close(input);close(output);
end.