Private Sub Form_Click() Dim sum As Integer Print "100~500 之间所有的水仙花数为: " Dim x%, a%, b%, c% For x = 100 To 500 a = x Mod 10 b = (x Mod 100) 10 c = x 100 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x sum = sum + x End If Next x Print "100...
水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身。(例如:1^3 + 5^3+ 3^3 = 153).显示100~500之间所有的水仙花数之和。 思路提示:使用Mod取得一个数的个位数,使用Mod以及整除运算取得一个数的十位数,使用整除运算取得一个数的百位数。
编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数,其各位数之和等于该数本身) 正确答案 答案解析 略 真诚赞赏,手留余香 小额打赏 169人已赞赏
打印出所有的"水仙花数".所谓"水仙花数"是指一个三位数,其各位数字的立方和等于该数本身.例如:153是一个"水仙花数",因为153=13+53+33 点击查看答案 第7题 打印出所有的"水仙花数",所谓"水仙花数.是指一个3位数,其各位数字立方和等于该数本身.例如,153是一水仙花数,因为153= 1 3 +5 3 +3 3 点击查看...
编程显示100~500之间所有的水仙花数之和. (水仙花数是3位数,其各位数立方之和等于该数本身) private sub form_click() print"100~500之间所有的水仙花数为:" dim x%, a%, b%, c% for x = 100 to 500 a= x mod 10 b= (x mod 100) \ 10 c= x \ 100 if then print x next x end sub ...
Python输出100-999的水仙花数 print("输出100 - 999 的所有水仙花数")forninrange(100,1000): B= n // 100S= n % 100 // 10G= n % 10ifB ** 3 + S ** 3 + G ** 3 ==n:print("%d是水仙花数"% n)
for (var i=100; i<=500; i++){ if ( i == eval((i+"").replace(/(\d)/g,"Math.pow($1,3)+")+"0") ){ document.writeln(i);} }
使用VBScript脚本语言编写一段程序,程序要求如下:计算100到500之间的水仙花数,并用信息对话框显示结果,所谓水仙花数是指一个3位数,其各“位”数字的立方和等于其本身。
Dim S As Integer Dim i As Integer Dim a As Integer Dim b As Integer Dim c As Integer S = 0 For i = 100 To 500 a = i \ 100 b = (i \ 10) Mod 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then S = S + i End If Next i Print S ...
Private Sub Form_Click() Dim sum As Integer Print "100~500 之间所有的水仙花数为: " Dim x%, a%, b%, c% For x = 100 To 500 a = x Mod 10 b = (x Mod 100) 10 c = x 100 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x sum = sum + x End If Next x Print "100...