主题：菜鸟的问题
nhhshl
[专家分：0] 发布于 2010-10-26 16:42:00
某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜？编码是怎样的，菜鸟请教
回复列表 （共6个回复）
沙发
nhhshl [专家分：0] 发布于 2010-10-27 08:18:00
高手在哪？
板凳
phile [专家分：2310] 发布于 2010-10-27 20:53:00
西瓜有多少？
3 楼
nhhshl [专家分：0] 发布于 2010-11-04 17:22:00
原题是这样，不知西瓜的数量，自己运算的吧
4 楼
cgl_lgs [专家分：21040] 发布于 2010-11-05 10:22:00
反推就行啦，貌似不用編程吧。
5 楼
幽灵密码 [专家分：3510] 发布于 2010-12-01 20:52:00
writeln('共有7个西瓜');
writeln('第一名分得7÷2+0.5=4个；',);
writeln('第二名分得（7-4）÷2+0.5=2个；',);
writeln('第三名分得（7-4-2）÷2+0.5=1个。',);
end.
6 楼
幽灵密码 [专家分：3510] 发布于 2010-12-01 21:00:00
uses crt;
var
i,a,b,c:integer;
begin
clrscr;
i:=1;
repeat;
inc(i,2);
a:=i div 2+1;
b:=(i-a) div 2+1;
c:=(i-a-b) div 2+1;
until a+b+c=i;
writeln('First:',a);
writeln('Second:',b);
writeln('Third:',c);
readln
end.
结果为4，2，1
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 菜鸟的问题