Cod sursa(job #164500)

Utilizator th3whu2Breta Ionut th3whu2 Data 24 martie 2008 12:40:31
Problema Oz Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
var f,g:text;   
n,m,t,z,r,x,y,d:longint;   
i:integer;   
a:array[1..10000] of qword;   
h:boolean;   
begin  
assign(f,'oz.in');reset(f);   
assign(g,'oz.out');rewrite(g);   
read(f,n,m);   
for i:=1 to n do  
 a[i]:=1;   
for i:=1 to m do  
 begin  
  read(f,x,y,d);   
  t:=a[x];   
  z:=d;   
  r:=t mod z;   
  while r>0 do  
   begin  
    t:=z;   
    z:=r;   
    r:=t mod z;   
   end;   
  a[x]:=a[x]*(d div z);   
  t:=a[y];   
  z:=d;   
  r:=t mod z;   
  while r>0 do  
   begin  
    t:=z;   
    z:=r;   
    r:=t mod z;   
   end;   
  a[y]:=a[y]*(d div z);   
 end;   
h:=true;   
for i:=1 to n do  
 write(g,a[i],' ');   
close(f);   
close(g);   
end.