Question

pascal程序 分钱游戏和牧场奶牛吃草

分钱游戏。甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数相同；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。 求原先各人的钱数分别是多少?
输入格式：一行，甲乙丙三人的钱数a b c（空格格开）

有一牧场，牧场的牧草每天都在匀速生长，这片牧场可供15头牛吃20天，或供20头牛吃10天，那么，这片牧场新生的草量可供几头牛吃一天？
输入格式：一行，结果a

成功另外加分，谢谢了

若以下回答无法解决问题，邀请你更新回答

Answer 1

1.
var a,b,c,x,y,z:longint;
begin
readln(a,b,c);
for x:=0 to 24 do
for y:=0 to 24-x do
begin
z:=24-x-y;
if (4*x-4*y-4*z=a) and
(-2*x+6*y-2*z=b) and
(-x-y+7*z=c) then
begin
writeln(x,' ',y,' ',z);
end;
end;
end.

2.
begin
writeln(100);
end.

Answer 2

你是不是建兰的......

Answer 3

对吗！问10班的男1号就行了