作业帮五位好朋友相聚.第一位朋友带来了很多糖块赠送给各位朋友,使每人的糖块在各自原有的基础上翻
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/23 20:45:45
五位好朋友相聚.第一位朋友带来了很多糖块赠送给各位朋友,使每人的糖块在各自原有的基础上翻
了一倍；接着第二位好友也同样向每人赠送糖块,他同样使每人的糖块在各人已有的数量上翻了一倍；第
三、第四、第五位好友都照此办理.经过这样的赠送之后,每人的糖块恰好都为32 块.问各位好友原先
的糖块数分别是多少?
再加一题:假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过
1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。
了一倍；接着第二位好友也同样向每人赠送糖块,他同样使每人的糖块在各人已有的数量上翻了一倍；第
三、第四、第五位好友都照此办理.经过这样的赠送之后,每人的糖块恰好都为32 块.问各位好友原先
的糖块数分别是多少?
再加一题:假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过
1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。
program fanfan(input,output);
const n=5;
var a:array[1..n] of integer;
b:array[1..n] of boolean;
i,j,s:integer;
begin
for i:=1 to n do
begin
a[i]:=32;
b[i]:=true;
end;
for i:=n downto 1 do
begin
b[i]:=false;
for j:=1 to n do
if b[j] then begin a[j]:=a[j] div 2; s:=s+a[j];end;
a[i]:=a[i]+s; s:=0;
b[i]:=true;
end;
for i:=1 to n do
write(a[i],' ');
end.
答案是81 41 21 11 6
我用手酸了一遍,是正确的;
你可以对N跟该,对5,6,7,8同样可以算出解
const n=5;
var a:array[1..n] of integer;
b:array[1..n] of boolean;
i,j,s:integer;
begin
for i:=1 to n do
begin
a[i]:=32;
b[i]:=true;
end;
for i:=n downto 1 do
begin
b[i]:=false;
for j:=1 to n do
if b[j] then begin a[j]:=a[j] div 2; s:=s+a[j];end;
a[i]:=a[i]+s; s:=0;
b[i]:=true;
end;
for i:=1 to n do
write(a[i],' ');
end.
答案是81 41 21 11 6
我用手酸了一遍,是正确的;
你可以对N跟该,对5,6,7,8同样可以算出解
五位好朋友相聚.第一位朋友带来了很多糖块赠送给各位朋友,使每人的糖块在各自原有的基础上翻
有三个好朋友,小明、小红、小华,他们是同一天出生的.过生日时 ,三个人都带来了自己喜欢吃的糖块给另外两个小朋友吃.小明先
姐弟两人共有40块糖,姐姐给了弟弟8块糖后,姐姐的糖块与弟弟的糖块数一样多
糖块rong化在热锅里的rong是哪个rong
小红有糖块60块,小军有糖12块,如果两人在增加等量的糖块,则小红的糖块数的4倍,问他们增加的糖块数是多少?
如何清理粘盒子上的糖块.以前放杂糖的塑料盒上有几块糖融了粘在上面,如何清理?
甲乙两人各有若干块糖；若甲拿出他的1/5给乙；则两人的糖块数相等；原来甲；乙两人糖块数的比是多少?
甲、乙两人各有若干块糖,若甲拿他五分之一给乙,则两人的糖块数相,原来甲,乙两人糖块数的比是多少?
测糖块的密度小刚学习了测物质密度后,想测一下糖块的密度,可是糖块行状不规则,而且糖是溶于水的呀,怎么才能测出体积呢?于是
1.甲,乙,丙三人分糖块,分法如下：先取三张一样的纸片,在纸片上各写一个正整数p,q,r.使p＜q＜r,分糖时,每人抽一
糖块溶于水后,糖水的体积是变大还是变小了?
丽丽手中的糖是明明的1.8倍丽丽给明明2颗,他们的糖块数就一样了.莉莉和明明各有