VFP程序的题目,求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时,则结束累加.编程序求出100到

求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时,则结束累加
set talk off
clear
local n,i
n=0
for i=1 to 500 step 2
n=n+i
endfor
编程序求出100到800之间同时满足除4余1和除5余3条件的数的个数
set talk off
clear
local n
n=0
for i=100 to 800
if i%4=1.and.i%5=3
n=n+1
endif
endfor
编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数.
set talk off
clear
local n
n=0
for i=1000 to 2000
if i%3=2.and.i%5=3
n=n+1
endif
endfor
编程序求出3000到5000之间同时满足除3余2和除5余3条件的数的个数.
set talk off
clear
local n
n=0
for i=3000 to 5000
if i%3=2.and.i%5=3
n=n+1
endif
endfor
求能被3整除且至少有一位数字为5的三位数的个数.
set talk off
clear
local a,b,c,n
n=0
FOR i=100 to 999
a=val(substr(ALLTRIM(str(i)),1,1))
b=val(substr(ALLTRIM(str(i)),2,1))
c=val(substr(ALLTRIM(str(i)),3,1))
if i%3=0.and.(a=5.or.b=5.or.c=5)
n=n+1
endif
ENDFOR
编写程序,求10!
set talk off
clear
local n
n=1
for i=1 to 10
n=i*n
endfor
编写程序,s=1+1/2+1/3+…+1/99,保留两位小数
SET TALK OFF
CLEAR
s=0
FOR i=1 TO 99
s=s+1/i
ENDFOR
ROUND(s,2)
求出只要能被2,7,9之一整除的1000以内的正整数的个数
set talk off
clear
n=0
for i=1 to 1000
if i%2=0.or.i%7=0.or.i%9=0
n=n+1
endif
endfor
求出只要能被2,7,9之一整除的800以内的正整数的个数
set talk off
clear
n=0
for i=1 to 800
if i%2=0.or.i%7=0.or.i%9=0
n=n+1
endif
endfor
求出只要能被2,7,9之一整除的600以内的正整数的个数
set talk off
clear
n=0
for i=1 to 600
if i%2=0.or.i%7=0.or.i%9=0
n=n+1
endif
endfor
编程序求出1到100之间同时满足除3余2和除4余2条件的数的和
set talk off
clear
n=0
for i=1 to 100
if i%3=2.and.i%4=2
n=n+i
endif
endfor
编程序求出1到500之间同时满足除3余2和除4余2条件的数的和
set talk off
clear
n=0
for i=1 to 500
if i%3=2.and.i%4=2
n=n+i
endif
endfor
求[105,625]间能同时被7和11整除的自然数之和
set talk off
clear
n=0
for i=105 to 625
if i%7=0.and.i%11=0
n=n+i
endif
endfor
求[1000,6000]间能同时被7和11整除的自然数之和
set talk off
clear
n=0
for i=1000 to 6000
if i%7=0.and.i%11=0
n=n+i
endif
endfor
编写程序,求200到800之间素数的个数
set talk off
CLEAR
LOCAL i,j,n
n=0
FOR i=200 to 800
FOR j=2 TO INT(SQRT(i))
IF i%j=0
EXIT for
ENDIF
ENDFOR
IF j>INT(SQRT(i))
n=n+1
ENDIF
ENDFOR
编写程序,求600到900之间素数的个数
set talk off
CLEAR
LOCAL i,j,n
n=0
FOR i=600 to 900
FOR j=2 TO INT(SQRT(i))
IF i%j=0
EXIT for
ENDIF
ENDFOR
IF j>INT(SQRT(i))
n=n+1
ENDIF
ENDFOR
编写程序,求600到900之间素数的和
set talk off
CLEAR
LOCAL i,j,n
n=0
FOR i=600 to 900
FOR j=2 TO INT(SQRT(i))
IF i%j=0
EXIT for
ENDIF
ENDFOR
IF j>INT(SQRT(i))
n=n+i
ENDIF
ENDFOR
编写程序,求200到800之间素数的和
set talk off
CLEAR
LOCAL i,j,n
n=0
FOR i=200 to 800
FOR j=2 TO INT(SQRT(i))
IF i%j=0
EXIT for
ENDIF
ENDFOR
IF j>INT(SQRT(i))
n=n+i
ENDIF
ENDFOR
计算S=3!+5!+7!+...+N!,求直到S>=680000为止的奇数N.
SET TALK OFF
CLEAR
LOCAL s,n
s=0
n=1
DO WHILE s