PASCAL的高手进。

来源：百度知道 编辑：UC知道 时间：2024/06/13 05:53:33
五位好朋友相聚.第一位朋友带来了很多
糖块赠送给各位朋友,使每人的糖块在各
自原有的基础上翻了一倍;接着第二位好
友也同样向每人赠送糖块,他同样使每人
的糖块在各人已有的数量上翻了一倍;第
三,第四,第五位好友都照此办理.经过这
样的赠送之后,每人的糖块恰好都为32块.
问各位好友原先的糖块数分别是多少
帮助解！！！感激不尽！！

program friends;
var
a,b,c,d,e:array[1..5]of integer;
i:integer;
begin
e[5]:=32;
d[5]:=32;
c[5]:=32;
b[5]:=32;
a[5]:=32;
for i:=5 downto 1 do
begin
case i of
5:begin
b[i]:=b[i] div 2;
c[i]:=c[i] div 2;
d[i]:=d[i] div 2;
a[i]:=a[i] div 2;
e[i]:=e[i]+b[i]+c[i]+d[i]+a[i];
end;
4:begin
b[i]:=b[i+1] div 2;
c[i]:=c[i+1]div 2;
e[i]:=e[i+1]div 2;
a[i]:=a[i+1]div 2;
d[i]:=d[i+1]+b[i]+c[i]+e[i]+a[i];
end;
3:begin
b[i]:=b[i+1]div 2;
e[i]:=e[i+1]div 2;
d[i]:=d[i+1]div 2;
a[i]:=a[i+1]div 2;
c[i]:=e[i]+b[i]+c[i+1]+d[i]+a[i];
end;
2:begin
e[i]:=e[i+1]div 2;
c[i]:=c[i+1]div 2;
d[i]:=d[i+1]div 2;
a[i]:=a[i+1]div 2;
b[i]:=e[i]+b[i+1]+c[i]+d[i]+a[i];
end;
1:begin
b[i]:=b[i+1]div 2;
c[i]:=c[i+1]div 2;
d[i]:=d[i+1]div 2;
e[i]:=e[i+1]div 2