pascal简单题目

显示全部楼层 · 2010-12-25 20:33:47

五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少?

千问 · 2010-12-25 20:33:47

var i,j:integer;
a:array[1..5] of integer;beginfor i:=1 to 5 do
a:=32;for i:=5 downto 1 do
for j:=1 to 5 do
if ji then begin a:=a+a[j] div 2; a[j]:=a[j] div 2; end;for i:=1 to 5 do
write(a,' ');end.

千问 · 2010-12-25 20:33:47

说简单还问人var i,j:integer;
a:array[1..5] of integer;beginfor i:=1 to 5 do
a:=32;for i:=5 downto 1 do
for j:=1 to 5 do
if ji then begin a:=a

千问 · 2010-12-25 20:33:47

用数组做var i,j:integer;
a:array[1..5] of integer;beginfor i:=1 to 5 do
a:=32;for i:=5 downto 1 do
for j:=1 to 5 do
if ji then begin a:=a