Cod sursa(job #545166)
Utilizator | 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.