记录编号 378639 评测结果 AAAAAAAAAA
题目名称 [USACO Oct08] 奶牛的骰子 最终得分 100
用户昵称 GravatarHale 是否通过 通过
代码语言 Pascal 运行时间 0.010 s
提交时间 2017-03-04 14:36:49 内存使用 11.61 MiB
显示代码纯文本
var s1,s2,s3,z,k,i,j,l,max:longint;
a,b,c:array[1..1000000] of longint;
begin
assign(input,'bones.in');
assign(output,'bones.out');
reset(input);
rewrite(output);
readln(s1,s2,s3);
k:=1;
 for i:=1 to s1 do
   for j:=1 to s2 do
     for l:=1 to s3 do
      begin
      a[k]:=i+j+l;
      k:=k+1;
      end;
  for i:=1 to k do
   b[a[i]]:=b[a[i]]+1;
max:=0;
   for i:=1 to k do
    if b[i]>max then begin
                      max:=b[i];
                      j:=i;
                     end;
writeln(j);
close(input);
close(output);
end.