Pagini recente » Cod sursa (job #2637662) | Cod sursa (job #2681155) | Cod sursa (job #3269342) | Cod sursa (job #2744229) | Cod sursa (job #169195)
Cod sursa(job #169195)
var f,g:text;
v:array[1..10000] of integer;
a,b,c,d,cd,cv,x,y,r:int64;
i,n,m:integer;
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.