比赛 20120708 评测结果 WWWWWWWWWW
题目名称 项链制作 最终得分 0
用户昵称 zhangchi 运行时间 0.003 s
代码语言 Pascal 内存使用 0.28 MiB
提交时间 2012-07-08 11:47:12
显示代码纯文本
  1. const
  2. mm=1000000007;
  3. var
  4. n,i,j,tot:longint;
  5. ans:int64;
  6. a:array[1..10000] of int64;
  7. c:array[1..100,1..100] of longint;
  8. begin
  9. assign(input,'necklacemn.in'); reset(input);
  10. assign(output,'necklacemn.out'); rewrite(output);
  11. readln(n);
  12. for i:=1 to n do
  13. for j:=1 to n do
  14. read(c[i,j]);
  15. for i:=1 to n do
  16. for j:=i+1 to n do
  17. begin
  18. inc(tot);
  19. a[tot]:=c[i,j];
  20. end;
  21. ans:=1;
  22. for i:=1 to tot do
  23. ans:=ans*(a[i]+1) mod mm;
  24. for i:=1 to tot do
  25. ans:=ans-a[i];
  26. ans:=ans-1;
  27. ans:=(ans+mm) mod mm;
  28. writeln(ans);
  29. close(input); close(output);
  30. end.