Cod sursa(job #164388)

Utilizator eugen.nodeaEugen Nodea eugen.nodea Data 24 martie 2008 09:42:20
Problema Oz Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.06 kb
var f:text;
    c,N,M,i,j,d,k:longint;
    A:array[1..10000] of LongInt;
    x:real;
    ok:boolean;
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]);
          x:=A[i] Div c*d;
          if x>2000000 then begin
                                ok:=True; break;
                            end;
          x:=A[j] Div c*d;
          if x>2000000 then begin
                                ok:=True; break;
                            end;
          A[i]:=A[i] Div c*d ;
          A[j]:=A[j] Div c*d;
     end;
     close(f);
     assign(f,'oz.out'); rewrite(f);
     if ok then write(f,'-1')
           else begin
               For i:=1 To N-1 do
                   write(f,A[i],' '); write(f,A[N]);
           end;
     close(f);
End.