作业帮VFP程序设计（要详细具体）大神求教!程序部分：1.某一范围内能被某数或另一数整除的数的个数；2.计算某范围内能被一个数整除所有数的和,并写出结果；3.写程序求出某范围内能被一数和
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/08 06:52:25
VFP程序设计（要详细具体）大神求教!程序部分：1.某一范围内能被某数或另一数整除的数的个数；2.计算某范围内能被一个数整除所有数的和,并写出结果；3.写程序求出某范围内能被一数和
VFP程序设计（要详细具体）大神求教!
程序部分：
1.某一范围内能被某数或另一数整除的数的个数；
2.计算某范围内能被一个数整除所有数的和,并写出结果；
3.写程序求出某范围内能被一数和另一数整除的和；
4.已知一数例求前20项的和；
5.求出某一数的真因子中最大的；
VFP程序设计（要详细具体）大神求教!程序部分：1.某一范围内能被某数或另一数整除的数的个数；2.计算某范围内能被一个数整除所有数的和,并写出结果；3.写程序求出某范围内能被一数和
input "输入开始数" to s
input "输入结束数" to e
input "输入除数" to d
n=0
for i=s to e
if i % d=0
n=n+1
endif
endfor
? n
input "输入开始数" to s
input "输入结束数" to e
input "输入除数" to d
s=0
for i=s to e
if i % d=0
s=s+i
endif
endfor
? s
input "输入开始数" to s
input "输入结束数" to e
input "输入第一个除数" to d1
input "输入第二个除数" to d2
s=0
for i=s to e
if (i % d1=0 ) and (i % d2=0 )
s=s+i
endif
endfor
? s
dime A(100)
input "数列中数的个数" to n
for i=1 to n
input to a(i)
endfor
s=0
for i=1 to 20
s=s+a(i)
endfor
? "前20项的和="
? s
这题有不同的理解,理解为能够整除该数的不等于该数的最大整数,程序如下：
input "给出一个整数" to n
for i=n-1 to 1 step -1
if n % i=0
exit
endif
endfor
? i
如果理解为先把n分解为质因数,再求作为底的最大质数,则程序更复杂一些,可为：
input "给出一个整数" to n
max=1
for i=2 to sqrt(n)
if n % i=0
n=n/i
if i>max
max=i
endif
endif
endfor
if max=1
? n
else
? max
endif