[生活] pascal求助= =

http://wenwen.soso.com/z/q210338113.htm

program pp(input,output);

var

i:integer;

sum,k:real;

begin

k:=50;

sum=100;

for i:=1 to 19do

begin

sum:=sum+2*k;

k:=k / 2;

end;

write(sum);

end.

好像一开始的错了。这个是对的。忘了路程是两倍了。
=====================================
好吧.....我無力了......
網路上沒有......OTL

（参考数学等比数列
S(n) = 100 * 2 ^ (n-1)
纯粹是数学问题，手算完毕就是上面的式子，对于n = 1 也成立。