pascal 小朋友分糖果 某幼儿园里，有M个小朋友编号为1，2，3..M,他们按自己的编号顺序围坐在一张圆桌旁
匿名用户 2010-10-15 10:18
满意回答
var i,x:longint; a:array of longint; begin for i:=1 to 5 do read(a); readln; x:=a div 3; a:=a+x; a:=a+x; a:=x; for i:=2 to 4 do begin x:=a div 3; a:=a+x; a:=a+x; a:=x; end; x:=a div 3; a:=a+x; a:=a+x; a:=x; write(a); for i:=2 to 5 do write(' ',a); writeln; end. 我输出的径阶菜是最后每个人有实迷的糖件查果
宝宝知道提示您：回答为网友贡献，仅供参考。
为您推荐：
其他回答
.m.
给我个样例输入输出,我帮你写
没明白什么意思！