Cod sursa(job #169187)

Utilizator DiaconuDiaconu Loredana Diaconu Data 1 aprilie 2008 13:18:37
Problema Oz Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.76 kb
var    f,g:text;
       v:array[1..10000] of integer;
       n,m,i,a,b,c,d,cd,cv,x,y,r:int64;
begin
assign (f,'oz.in');reset (f);
assign (g,'oz.out');rewrite (g);
readln (f,n,m);
fillchar (v,sizeof(v),0);
for i:=1 to n do
 v[i]:=1;
for i:=1 to m do begin
 readln (f,a,b,d);
 cd:=d;
 cv:=v[a];
 if cd>cv then begin
  x:=cd;
  y:=cv;
 end
 else begin
  x:=cv;
  y:=cd;
 end;
 r:=x mod y;
 while r<>0 do begin
  x:=y;
  y:=r;
  r:=x mod y;
 end;
 d:=d div y;
 v[a]:=v[a]*d;
 d:=cd;
 if v[b]>d then begin
  x:=v[b];
  y:=d;
 end
 else begin
  x:=d;
  y:=v[b];
 end;
 r:=x mod y;
 while r<>0 do begin
  x:=y;
  y:=r;
  r:=x mod y;
 end;
 d:=d div y;
 v[b]:=v[b]*d;
end;
for i:=1 to n do
 write (g,v[i],' ');
close(f);close(g);
end.