记录编号 378639 评测结果 AAAAAAAAAA
题目名称 [USACO Oct08] 奶牛的骰子 最终得分 100
用户昵称 GravatarHale 是否通过 通过
代码语言 Pascal 运行时间 0.010 s
提交时间 2017-03-04 14:36:49 内存使用 11.61 MiB
显示代码纯文本
  1. var s1,s2,s3,z,k,i,j,l,max:longint;
  2. a,b,c:array[1..1000000] of longint;
  3. begin
  4. assign(input,'bones.in');
  5. assign(output,'bones.out');
  6. reset(input);
  7. rewrite(output);
  8. readln(s1,s2,s3);
  9. k:=1;
  10. for i:=1 to s1 do
  11. for j:=1 to s2 do
  12. for l:=1 to s3 do
  13. begin
  14. a[k]:=i+j+l;
  15. k:=k+1;
  16. end;
  17. for i:=1 to k do
  18. b[a[i]]:=b[a[i]]+1;
  19. max:=0;
  20. for i:=1 to k do
  21. if b[i]>max then begin
  22. max:=b[i];
  23. j:=i;
  24. end;
  25. writeln(j);
  26. close(input);
  27. close(output);
  28. end.
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.