Cod sursa(job #921697)

Utilizator raluca1234Tudor Raluca raluca1234 Data 21 martie 2013 11:00:25
Problema Sum Scor 45
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.5 kb
var f,g:text;
    n,x,suma,i,j:longint;
{Creez functia ce calculeaza cmmdc}
function cmmdc(a1,a2:longint):longint;
begin
    while a1<>a2 do
      if a1>a2 then
         a1:=a1-a2
	else
	 a2:=a2-a1;
    cmmdc:=a1;
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);
    suma:=0;
    for j:=1 to 2*x do
        if cmmdc(x,j)=1 then
           suma:=suma+j;
    writeln(g,suma);
    end;
close(f); close(g);
end.