Cod sursa(job #731326)

Utilizator ignadariusIgna Darius ignadarius 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.