Cod sursa(job #164386)

Utilizator eugen.nodeaEugen Nodea eugen.nodea Data 24 martie 2008 09:32:27
Problema Oz Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.65 kb
var f:text;
    c,N,M,i,j,d,k:longint;
    A:array[1..10000] of LongInt;
Function cmmdc(x,y:longint):longint;
var r:longint;
begin
     repeat
           r:=x Mod y;
           x:=y;
           y:=r;
     until r=0;
     cmmdc:=x;
end;
Begin
     assign(f,'oz.in'); reset(f);
     Readln(f,N,M);
     For k:=1 To N do
         A[k]:=1;
     For k:=1 To M do
     begin
          Readln(f,i,j,d);
          c:=cmmdc(A[i],A[j]);
          A[i]:=A[i] Div c*d ;
          A[j]:=A[j] Div c*d;
     end;
     close(f);
     assign(f,'oz.out'); rewrite(f);
     For i:=1 To N-1 do
         write(f,A[i],' '); write(f,A[N]);
     close(f);
End.