Pagini recente » Cod sursa (job #1111626) | Cod sursa (job #3148233) | Cod sursa (job #1239028) | Cod sursa (job #2041064) | Cod sursa (job #731326)
Cod sursa(job #731326)
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.