Cod sursa(job #731326)
| Utilizator | Data | 7 aprilie 2012 21:38:31 | |
|---|---|---|---|
| Problema | Sum | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.39 kb |
var f,g:text;x,n,i:integer;
function cmmdc(x:integer):integer;
var i,s,z,y:integer;
begin
for i:=1 to 2*x do
begin
z:=x;
y:=i;
while y<>z do
if z<y then y:=y-z else z:=z-y;
if y=1 then s:=s+i;end;
cmmdc:=s;end;
begin
assign(f,'sum.in');reset(f);
assign(g,'sum.out');rewrite(g);
readln(f,n);
for i:=1 to n do
begin
readln(f,x);
writeln(g,cmmdc(x));
end;
close(f);
close(g);
end.