记录编号 |
378639 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[USACO Oct08] 奶牛的骰子 |
最终得分 |
100 |
用户昵称 |
Hale |
是否通过 |
通过 |
代码语言 |
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.
-
-
-
-
-
-
-
-