搜搜做题作业网pascal编程 超急
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/05/14 08:57:15
pascal编程 超急
有三个小朋友甲乙丙.甲有50粒糖果,乙有43粒糖果,丙有13粒糖果.现在他们做一个游戏,从甲开始,将自己的糖果分成三份,余下的自己吃掉,三份每人一份.如此轮流,最后各有几个
有三个小朋友甲乙丙.甲有50粒糖果,乙有43粒糖果,丙有13粒糖果.现在他们做一个游戏,从甲开始,将自己的糖果分成三份,余下的自己吃掉,三份每人一份.如此轮流,最后各有几个
program ex1_1;
var a,b,c:integer;
begin
readln(a,b,c);
a:=a div 3; b:=b+a; c:=c+a;
b:=b div 3; a:=a+b; c:=c+b;
c:=c div 3; a:=a+c; b:=b+c;
writeln('a=',a,'b=',b,'c=',c);
end.
var a,b,c:integer;
begin
readln(a,b,c);
a:=a div 3; b:=b+a; c:=c+a;
b:=b div 3; a:=a+b; c:=c+b;
c:=c div 3; a:=a+c; b:=b+c;
writeln('a=',a,'b=',b,'c=',c);
end.