Pagini recente » Cod sursa (job #1267687) | Cod sursa (job #954338) | Cod sursa (job #2194362) | Cod sursa (job #2232373) | Cod sursa (job #164388)
Cod sursa(job #164388)
var f:text;
c,N,M,i,j,d,k:longint;
A:array[1..10000] of LongInt;
x:real;
ok:boolean;
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]);
x:=A[i] Div c*d;
if x>2000000 then begin
ok:=True; break;
end;
x:=A[j] Div c*d;
if x>2000000 then begin
ok:=True; break;
end;
A[i]:=A[i] Div c*d ;
A[j]:=A[j] Div c*d;
end;
close(f);
assign(f,'oz.out'); rewrite(f);
if ok then write(f,'-1')
else begin
For i:=1 To N-1 do
write(f,A[i],' '); write(f,A[N]);
end;
close(f);
End.