pascal语言问题

时间：2015.07.23 发布人：
pascal语言问题

已解决问题

谷歌用户在2015.07.23提交了关于“混沌与秩序pascal语言问题”的提问，欢迎大家涌跃发表自己的观点。目前共有3个回答，最后更新于2025-02-14T05:11:29。

2、某幼儿园里，有5个小朋友编号为：1、2、3、4、5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干颗帖，现在他们开始做游戏。从1号小朋友开始，将他的帖分成三份，（如果有多余的，则他将多余的帖吃掉），自己留一份，其余2份分给他的相邻两个小朋友。接着2号、3号、4号、5号小朋友也这样做。问一轮后，每个小朋友手上分别有多少帖？

如：输入：129201514

输出：161215158


希望大家能够帮助她。

详细问题描述及疑问：

2、某幼儿园里，有5个小朋友编号为：1、2、3、4、5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干颗帖，现在他们开始做游戏。从1号小朋友开始，将他的帖分成三份，（如果有多余的，则他将多余的帖吃掉），自己留一份，其余2份分给他的相邻两个小朋友。接着2号、3号、4号、5号小朋友也这样做。问一轮后，每个小朋友手上分别有多少帖？

如：输入：129201514

输出：161215158


期待您的答案，希望你能感受到,我最真诚的谢意 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：清溟_**sh  

vara:array[1..1000]oflongint;

i:longint;

begin

fori:=1to5doread(a[i]);

fori:=1to5do

begin

ifi=1then

b缩给装延矛课egin

inc(a[5],a[i]div3);

inc(a[2],a[i]div3);

e陈nd

else

if听城i=5then

b措钟半鱼承消egin

i协马房nc(a[1],a[i]div3);

inc(a[4],a[i]div3);

e接计代领年银末望吧些nd

else

begin

inc(a[i-1],a[i]div3);

inc(a[i+1]只教误笔事执杆燃是纸被,a[i]div3);

e货目此艺交被练假适教讨nd;

a[i]:=a[i]div3;

end;

fori:=1to5do

write(a[i],'');

writeln;

end.

应该对了。。

第2个回答

用户名：陈20040607  

var

a,b,c,d,e:integer;
begin
　readln(础全哥而粒急a,b,c,d,e);
　a:=adiv3;

b:=b+特鲜明备印a;

e:=e+a;
　b:=bdiv3;

c:=乎c+b;

a:=a+b;
　c:=cdiv3;

b:=b+c;

d:=d+c;
　d:=ddiv3;

c:=c+d;

e:=e+d;
　e:甚的白燃易谓翻=ediv3;

d:=d+设作东培胡获确越e;

a:=a+e;
writeln（a,'',b,'',c,'',d,'',e);
end.


第3个回答

用户名：goody7uytutygu  

var

a,b,c,d,e:integer;
begin
　readln(a,b,c,d,e);
　a:=adiv3;

b:=b+a;

e:=e+a;
　b:=bdiv3;

c:=c+b;

a:=a+b;
　c:=cdiv3;

b:=b+c;

d:=d+c;
确入百　d:=ddiv3阳;

c:=c+d;

e:=e+d;
　e:=ediv3;

d:=d+e;

a:=a+e;
　writeln('a=',a);
　writeln('b=',b);
　writeln('c=',c);
　writeln('d=',d);
　writeln('e=',e);
　readln;
end.