请编程序：将一个十进制整数X换成二进制数。转换后的二进制数位放在一一维数组中（...

李老师

请编程序：将一个十进制整数X换成二进制数。转换后的二进制数位放在一一维数组中（二进制数的最低位在数组的第一个元素中）

参考代码：
INTEGER BS(16),X,R
READ(*,*) x
K=0
10 R=MOD(X,2)
K=K+1
BS(K)=R
X=X/2
IF (X.NE.0) GOTO 10
WRITE(*,*) BS
END

二、编程计算并输出1到10之间所有偶数的阶乘之和，请编写该程序，最后运行程序。

参考代码：

Program exam
s=0.0
       do 30 n=2,10,2
          p=1
          do 20 j=1,n
20         p=p*j
s=s+p
30       continue
write(*,*) s
end