Question

分钱游戏,用pascal语言来做

分钱游戏。甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数相同；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。 求原先各人的钱数分别是多少?
算叻,
我已经做好了

Answer 1

用枚举吧
var
i,j,a,b,c:integer;
begin
for i:=1 to 24 do
for j:=1 to 24 do begin
c:=24-i-j;
if c>0 then begin
a:=i;b:=j;
a:=a-b-c;
b:=b*2;c:=c*2;
if a>0 then begin
b:=b-a-c;
a:=a*2;c:=c*2;
if b>0 then begin
c:=c-a-b;
a:=a*2;b:=b*2;
if (a=b)and(b=c) then begin
writeln(a," ",b," ",c);
halt;
end;
end;
end;
end;
end;
end.

a,b,c分别表示甲，乙，丙的钱

Answer 2

Var a，b，c: integer；
Begin
a:=8； b:=8； c:=8；
a:=a div 2； b:=b div 2； c:=a+b+c；
a:=a div 2； c:=c div 2； b:=a+b+c；
b:=b div 2； c:=c div 2； a:=a+b+c；
Writeln('a='，a，' ': 4，'b='，b，' ': 4，'c='，c) ；　
Readln
End.

Answer 3

~~~~~~~~~~~~~~
做好了也要给分吧
给我分啊

Answer 4

这个是模拟
直接按题目要求模拟即可
实际上人脑算得比电脑还多