Question

初学pascal 六年级 快来帮帮忙阿 解题过程不要太复杂 关于mod div......

编程题：某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果（由键盘输入），现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分成三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号，3号，4号，5号小朋友也这如果做。【这句话是不是老师打错字了==】问一轮后，每个小朋友手上分别有多少糖果？（将结果输出在屏幕上）

Answer 1

var
a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
a:=a div 3; b:=b+a; e:=e+a;
b:=b div 3; c:=c+b; a:=a+b;
c:=c div 3; d:=d+c; b:=b+c;
d:=d div 3; e:=e+d; c:=c+d;
e:=e div 3; a:=a+e; d:=d+e;
writeln(a,' ',b,' ',c,' ',d,' ',e);
end.

Answer 2

var a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
a:=a div 3;
b:=b+a;
e:=e+a;
b:=b div 3;
a:=a+b;
c:=c+b;
c:=c div 3;
b:=b+c;
d:=d+c;
d:=d div 3;
c:=c+d;
e:=e+d;
e:=e div 3;
d:=d+e;
a:=a+e;
writeln(a,' ',b,' ',c,' ',d,' ',e);
end.