长上影线阳线:VF的小问题望大家帮忙很急希望能快点谢谢拉

来源:百度文库 编辑:神马品牌网 时间:2024/04/30 14:12:56
(1)输入任两个正数m,n 求最大公约数
(2)输入正整数n,求被正整数整除的所有正整数之和(除了1 和n)

1、
set talk off
input to m
input to n
k=mod(m,n)
do while k<>0
m=n
n=k
k=mod(m,n)
enddo
?n
set talk on
2、
set talk off
input to n
s=0
i=2
do while i<=n-1
if mod(n,i)=0
s=s+i
endif
i=i+1
enddo
?s
set talk on