Cod sursa(job #169114)

Utilizator victor_bla_blaDumitrescu Victor victor_bla_bla Data 1 aprilie 2008 10:34:58
Problema Oz Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.73 kb
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.