比赛 不平凡的世界 评测结果 AAAEEEEEEE
题目名称 不平凡的许愿树 最终得分 30
用户昵称 Derrick_M 运行时间 0.219 s
代码语言 Pascal 内存使用 0.20 MiB
提交时间 2015-11-05 11:19:15
显示代码纯文本
program P2096;
const
  mo=338;
var
  n,u,v,ans1,ans2,i,j,k:longint;
  dist:array[1..100,1..100] of longint;

begin
  assign(input,'hopetree.in');assign(output,'hopetree.out');
  reset(input);rewrite(output);
  readln(n);
  ans1:=0;
  ans2:=233;
  fillchar(dist,sizeof(dist),$3F);
  for i:=1 to n-1 do
  begin
    readln(u,v);
    dist[u,v]:=1;
    dist[v,u]:=1;
  end;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if dist[i,j]>dist[i,k]+dist[k,j] then dist[i,j]:=dist[i,k]+dist[k,j];
  for i:=1 to n-2 do
    for j:=i+1 to n-1 do
      for k:=j+1 to n do
        if (dist[i,j]=dist[i,k]) and (dist[i,j]=dist[j,k]) then
        begin
          ans1:=(ans1+1) mod mo;
          ans2:=(ans2+1) mod mo;
        end;
  writeln(ans1+1,' ',ans2+1);
  close(input);close(output);
end.