Pagini recente » Cod sursa (job #721622) | Cod sursa (job #1915709) | Cod sursa (job #2716241) | Cod sursa (job #2100727) | Cod sursa (job #164386)
Cod sursa(job #164386)
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.