Cod sursa(job #738738)
| Utilizator |  Astalas Paul paul777 |
Data | 21 aprilie 2012 13:46:47 |
|---|---|---|---|
| Problema | Sum | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
var f,g:text;s,n,x,i,y:longint;v:array[1..20000000]of boolean;
begin
assign(f,'sum.in');reset(f);assign(g,'sum.out');rewrite(g);read(f,n);
for i:=1 to n do begin read(f,x);s:=0;
for y:=1 to 2*x do
if (y mod x<>0)and(x mod y<>0) then s:=s+y;writeln(g,s+1);end;
close(f);close(g);end.