Pagini recente » Cod sursa (job #543279) | Cod sursa (job #1739639) | Cod sursa (job #2547830) | Cod sursa (job #2355143) | Cod sursa (job #169114)
Cod sursa(job #169114)
program oz;
var n,x,y,d: integer;
m,i: longint;
a: array[1..100000] of longint;
f: text;
function cmmdc(x,y: longint):longint;
begin
if y=0 then cmmdc:=x else
cmmdc:=cmmdc(y, x mod y);
end;
function at(k,h:longint):longint;
var b: longint;
begin
if k=1 then at:=h else
if k mod h=0 then at:=k*h else
at:=k*h div cmmdc(k,h);
end;
begin
assign(f,'oz.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
a[i]:=1;
for i:=1 to m do
begin
readln(f,x,y,d);
a[x]:=at(a[x],d);
a[y]:=at(a[y],d);
end;
close(f);
assign(f,'oz.out'); rewrite(f);
for i:=1 to n do
write(f,a[i],' ');
close(f);
end.