主题：古老的问题
taofei
[专家分：30] 发布于 2005-07-16 18:59:00
100匹马，100块瓦，大马运3个，二马运2个，小马2匹运1个，一次全运走
你知道多少大马，多少二马，多少小马吗？
好像是8,20,72
回复列表 （共6个回复）
沙发
口口and枕头 [专家分：1550] 发布于 2005-07-16 20:21:00
有分吗?????
嘿嘿~~~
program abc;
var a,b,c:integer;
begin
for a:=0 to 34 do
for b:=0 to 50 do
for c:=0 to 100 do
if a+b+c=100 then
if a*3+b*2+c/2=100 then writeln(a:3,b:3,c:3);
readln;
readln;
end.
有6组答案;
2 30 68
5 25 70
8 20 72
11 15 74
14 10 76
17 5 78
20 0 80
以经改过来了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`~~~~~~
板凳
xpycc [专家分：410] 发布于 2005-07-17 08:48:00
让电脑慢慢凑吧~~~~~~~~~~~~~~~~~~~~~~
3 楼
cxxx401 [专家分：140] 发布于 2005-07-17 12:08:00
二楼的少一组解.
program cxxx401;
var a,b,c:integer;
begin
for a:=0 to 34 do
for b:=0 to 50 do
for c:=1 to 50 do
if (a*3+b*2+c=100)and(a+b+c*2=100)
then writeln(a:3,b:3,c:3);
end.
4 楼
口口and枕头 [专家分：1550] 发布于 2005-07-17 12:20:00
你看清楚题目了吗???
你的C可能有问题吧~~~~~
5 楼
cxxx401 [专家分：140] 发布于 2005-07-17 17:50:00
没错啊.
大马20
中马0
小马80
6 楼
口口and枕头 [专家分：1550] 发布于 2005-07-17 18:10:00
我是考虑掉了为0的情况
我以经改过来了,看上面~~~~的回复~
但是你的,我觉得也有点问题:
program cxxx401;
var a,b,c:integer;
begin
for a:=0 to 34 do
for b:=0 to 50 do
for c:=1 to 50 do
if (a*3+b*2+c=100)and(a+b+c*2=100)
then writeln(a:3,b:3,c:3);//C如果为1就是是两匹马吧!但你的出时C没有乘2呀?
end.
果然有问题~~~~我刚刚试了~~~~~~在C那个地方确实有问题
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 古老的问题