题意
有些公司是其他公司的部分拥有者，因为他们获得了其他公司发行的股票的一部分。例如，福特公司拥有马自达公司12%的股票。据说，如果至少满足了以下条件之一，公司A就可以控制公司B了：
• 公司A = 公司B。
• 公司A拥有大于50%的公司B的股票。
• 公司A控制K(K >= 1)个公司，记为C1, ..., CK，每个公司Ci拥有xi%的公司B的股票，并且x1+ .... + xK > 50%。
你将被给予一系列的三对数（i，j，p），表明公司i享有公司j的p%的股票。计算所有的数对（h，s），表明公司h控制公司s。至多有100个公司。
const
maxn=100;
var
i,j,k,x,y,n:longint;
b:array[0..maxn]of longint;
a,c:array[0..maxn,0..maxn]of longint;
f:array[0..maxn]of boolean;
procedure init;
var
i:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(x,y,c[x,y]);
inc(a[x,0]);
a[x,a[x,0]]:=y;
end;
fillchar(f,sizeof(f),1)
end;
procedure dfs(k:longint);
var
i:longint;
begin
for i:= 1 to a[k,0] do
inc(b[a[k,i]],c[k,a[k,i]]);
for i:=1 to a[k,0] do
begin
if (b[a[k,i]]>50) and f[a[k,i]] then
begin
f[a[k,i]]:=false;
dfs(a[k,i]);
f[a[k,i]]:=true;
end;
end;
end;
procedure main;
var
i:longint;
begin
for i:=1 to 100 do
begin
fillchar(b,sizeof(b),0);
f[i]:=false;
dfs(i);
f[i]:=true;
for j:=1 to 100 do
if (b[j]>50) and (i<>j) then writeln(i,' ',j);
end;
end;
begin
init;
main;
end.