vfp编程问题for循环1.求解“水仙花”数.“水仙花”数是一个三位整数,组成该数的每一位数字之立方和等于此数自身.如153=13+53+332.求解10000以内的守数.守数的定义：一个数其平方

Question

vfp编程问题
for循环_
1. 求解“水仙花”数.“水仙花”数是一个三位整数,组成该数的每一位数字之立方和等于此数自身.
如 153 = 13 + 53 + 33
2. 求解10000以内的守数.守数的定义：一个数其平方数的尾数是其自身该数称为守数.
如：5、6、25、…….
3. 一个百万富翁遇到一陌生人,陌生人找他谈一个换钱的计划,该计划的内容如下：我每天给你十万元,而你第一天只需给我一分钱,第二天我仍给你十万元,你给我二分钱,第三天我还给你十万元,你才给我四分钱,……,以后你每天给我的钱是前一天的两倍,直到满一个月(30天).百万富翁很高兴,欣然接受了这个契约.请编写一个程序计算这一个月中陌生人给了百万富翁多少钱,百万富翁给陌生人多少钱.

大侠帮帮忙~

Answer 1

1、
clear
?"100-999之间的水仙花数有："
for i=100 to 999
k=int(i/100)
m=(int(i/10))%10
n=i%10
if k^3+m^3+n^3=i
?alltrim(str(i))+space(2)
endif
endfor
2、
clear
?"10000以内的守数有："
for i=1 to 10000
k=alltrim(str(int(i*i)))
if right(k,len(alltrim(str(i)))=alltrim(str(i))
?i
endif
endfor
3、
clear
a=0
b=0
for i=1 to 30
a=a+10000000
b=b+2^(i-1)
endfor
?"这一个月中,陌生人给百万富翁",a/100,"元"
?"这一个月中,百万富翁给陌生人",b/100,"元"