UC知道vfp编写如下程序：
来源：百度知道 编辑：UC知道 时间：2024/05/10 05:54:42
1.已知S1=1，S2=1+2，S3=1+2+3，…Sn=1+2+3+…+N，求S1，S2，S3，…S2000中有多少个能被9或11整除的数。
2、50元的整币兑换成5元、2元和1元币值，要求三种币值均至少有一枚，编程求这样的换法有多少种。
3、A,B,C是三个小于或等于100的正整数，当满足1/A^2+1/B^2=1/C^2关系,并且A>B>C时，称为倒勾股数。求这样的倒勾股数中A+B+C的值最大是多少。
4、fibonacci数列：fib(1)=1,fib(2)=1,fib(n)=fib(n-1)+fib(n-2) n>=3。求数列中第一个大于1000的素数项是数列的第几项。
2、50元的整币兑换成5元、2元和1元币值，要求三种币值均至少有一枚，编程求这样的换法有多少种。
3、A,B,C是三个小于或等于100的正整数，当满足1/A^2+1/B^2=1/C^2关系,并且A>B>C时，称为倒勾股数。求这样的倒勾股数中A+B+C的值最大是多少。
4、fibonacci数列：fib(1)=1,fib(2)=1,fib(n)=fib(n-1)+fib(n-2) n>=3。求数列中第一个大于1000的素数项是数列的第几项。
1.
clear
m=0
s=0
for i=1 to 2000
s=s+i
if s%9=0 or s%11=0
m=m+1
endif
endfor
?m
2.
clear
for x=1 to 20
for y=1 to 20
for z=1 to 20
if x+2*y+5*z=50
if x+y+z=20
?x,y,z
?"1元"+str(x,2)+"张","2元"+str(y,2)+"张","5元"+str(z,2)+"张"
endif
endif
endf
endf
endf
3.
clear
max=0
?"倒勾股数:"
for a=1 to 100
for b=1 to 100
for c=1 to 100
if 1/a^2+1/b^2=1/C^2 and a>b and b>c and a>c
?a,b,c
if a+b+c>max
max=a+b+c
endif
endif
endfor
endf
endf
?"倒勾股数中A+B+C的值最大为：",max
4.