拜托 不会啊~求救

1！+2！+……+10！ 
1！+3！+…+21！ 
1/1！+1/3!+…+1/21！ 
以上的都不会编
有好心人帮忙编了 
不太确定对不对啊 大家帮帮忙啊 我是很菜 我考试要用的 拜托各位啦
下面是那位好心人帮做的 感觉不是很对啊 各位高手告诉我正确答案啊

set talk off 
s=0 
p=1 
i=1 
do while i<=10 
p=p*i 
s=s+p 
i=i+1 
enddo 
?"1!+2!+...10!=",s 

set talk off 
s=0 
p=1 
i=1 
do while i<=21 
p=p*i 
s=s+p 
i=i+3 
enddo 
?"1!+3!+... 21!=",s 


set talk off 
s=0 
p=1 
i=1 
do while i<=21 
p=p*i 
s=s+(1/p) 
i=i+3 
enddo 
?"1!+3!+... 21!=",s