贝西喜欢棋盘游戏和角色扮演类游戏所以她说服Farmer John把她带到玩具店，在那里，她购买了三个不同的骰子，这三个质量均匀的骰子，分别有S1,S2,S3个面。(2 <= S1 <= 20; 2 <= S2 <= 20; 2 <= S3 <= 40). 贝西掷啊掷啊掷啊，想要知道出现几率最大的和是多少。 问题给出三个骰子的面数，让你求出出现几率最大的和是多少。如果有很多种和出现的几率相同，那么就输出小的那一个。
标签：des style blog http color os io for
贝西喜欢棋盘游戏和角色扮演类游戏所以她说服Farmer John把她带到玩具店，在那里，她购买了三个不同的骰子，这三个质量均匀的骰子，分别有S1,S2,S3个面。(2 <= S1 <= 20; 2 <= S2 <= 20; 2 <= S3 <= 40). 贝西掷啊掷啊掷啊，想要知道出现几率最大的和是多少。 问题给出三个骰子的面数，让你求出出现几率最大的和是多少。如果有很多种和出现的几率相同，那么就输出小的那一个。
*第一行：三个由空格隔开的整数：s1,s2,s3
*第一行：所要求的解
1 var x,y,z,i,n:longint; 2 begin 3 assign(input,‘input.txt‘);assign(output,‘output2.txt‘); 4 reset(input);rewrite(output); 5 readln(n); 6 for i:=1 to n do 7 begin 8 readln(x,y,z); 9 writeln((x+y+z+3)>>1); 10 end; 11 close(input);close(output); 12 end. 13
2.正解=暴力
1 var x,y,z:longint; 2 i,j,k,l,n,max,ans:longint; 3 f:array[0..100] of longint; 4 begin 5 assign(input,‘input.txt‘);assign(output,‘output.txt‘); 6 reset(input);rewrite(output); 7 readln(n); 8 for l:=1 to n do 9 begin 10 readln(x,y,z); 11 fillchar(f,sizeof(f),0); 12 for i:=1 to x do 13 for j:=1 to y do 14 for k:=1 to z do 15 inc(f[i+j+k]); 16 for i:=1 to x+y+z do if f[i]>max then begin max:=f[i];ans:=i;end; 17 writeln(ans); 18 end; 19 close(input);close(output); 20 end.
为什么呢？请大神指教。
BZOJ1599: [Usaco2008 Oct]笨重的石子,布布扣,bubuko.com
BZOJ1599: [Usaco2008 Oct]笨重的石子
标签：des style blog http color os io for
原文地址：http://www.cnblogs.com/zyfzyf/p/3905669.html
