Question

pascal语言的题目。。高手进。。我是初学的，不要用复杂的做。。没有学过for语句。。

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

Answer 1

var
n,a,b,c,d,e,s:integer;
begin
readln(n);
s:=a div 2+b div 2+c div 2+d div 2;
e:=e+s;
a:=a div 2; b:=b div 2; c:=c div 2; d:=d div 2;
s:=a div 2+b div 2+c div 2+e div 2;
d:=d+s;
a:=a div 2; b:=b div 2; c:=c div 2; e:=e div 2;
s:=a div 2+b div 2+d div 2+e div 2;
c:=c+s;
a:=a div 2; b:=b div 2; d:=d div 2; e:=e div 2;
s:=a div 2+c div 2+d div 2+e div 2;
b:=b+s;
a:=a div 2; c:=c div 2; d:=d div 2; e:=e div 2;
s:=b div 2+c div 2+d div 2+e div 2;
a:=a+s;
b:=b div 2; c:=c div 2; d:=d div 2; e:=e div 2;
writeln(a,' 'b,' ',c,' ',d,' ',e);
end.
网上人都这么做！

Answer 2

最简单的做法：
var
n,a,b,c,d,e,s:integer;
begin
readln(n);
s:=a div 2+b div 2+c div 2+d div 2;
e:=e+s;
a:=a div 2; b:=b div 2; c:=c div 2; d:=d div 2;
s:=a div 2+b div 2+c div 2+e div 2;
d:=d+s;
a:=a div 2; b:=b div 2; c:=c div 2; e:=e div 2;
s:=a div 2+b div 2+d div 2+e div 2;
c:=c+s;
a:=a div 2; b:=b div 2; d:=d div 2; e:=e div 2;
s:=a div 2+c div 2+d div 2+e div 2;
b:=b+s;
a:=a div 2; c:=c div 2; d:=d div 2; e:=e div 2;
s:=b div 2+c div 2+d div 2+e div 2;
a:=a+s;
b:=b div 2; c:=c div 2; d:=d div 2; e:=e div 2;
writeln(a,' 'b,' ',c,' ',d,' ',e);
end.