0—9数字组成abcdefghi数,其中满足a能被1整除,ab能被2整除.以此类推,abcdefghi能被9整除,求
题目
0—9数字组成abcdefghi数,其中满足a能被1整除,ab能被2整除.以此类推,abcdefghi能被9整除,求
abcdefghi各为多少?我编了一个程序,但是算不对,希望各位不吝赐教#include
#include
void main()
{
x05int a,b,c,d,e,f,g,h,i,k;
for(a=1;a
不好意思,最后那个k该写成sum,没注意!
答案
本人只会VB代码,所以只能提供思路和结果:
以0-9不重复使用,符合要求的数有(EXCEL VBA 测试):
381654720
381654729
783204165
801654723
另:081654327 (因为0在首位,所以只有8位数,不符合要求)
计算思路如下(可以根据以下思路检查代码过程逻辑顺序是否正确):
abcdefg分别从0-9依次循环
0-9循环时首先判断是否与前位重复(a判断是否为0)
不重复则判断前面已当前数组成的数是否能被位数整除
如果能整除(如果为i循环则生成结果)则继续
EXCEL VBA 代码如下:
Sub abcdefghi()
For a = 0 To 9 Step 1
If a 0 Then
s = a
If Val(s) Mod Len(s) = 0 Then
For b = 0 To 9 Step 1
If b a Then
s = a & b
If Val(s) Mod Len(s) = 0 Then
For c = 0 To 9 Step 1
If c a And c b Then
s = a & b & c
If Val(s) Mod Len(s) = 0 Then
For d = 0 To 9 Step 1
If d a And d b And d c Then
s = a & b & c & d
If Val(s) Mod Len(s) = 0 Then
For e = 0 To 9 Step 1
If e a And e b And e c And e d Then
s = a & b & c & d & e
If Val(s) Mod Len(s) = 0 Then
For f = 0 To 9 Step 1
If f a And f b And f c And f d And f e Then
s = a & b & c & d & e & f
If Val(s) Mod Len(s) = 0 Then
For g = 0 To 9 Step 1
If g a And g b And g c And g d And g e And g f Then
s = a & b & c & d & e & f & g
If Val(s) Mod Len(s) = 0 Then
For h = 0 To 9 Step 1
If h a And h b And h c And h d And h e And h f And h g Then
s = a & b & c & d & e & f & g & h
If Val(s) Mod Len(s) = 0 Then
For i = 0 To 9 Step 1
If i a And i b And i c And i d And i e And i f And i g And i h Then
s = a & b & c & d & e & f & g & h & i
If Val(s) Mod Len(s) = 0 Then
结果 = 结果 & vbCrLf & s
End If
End If
Next i
End If
End If
Next h
End If
End If
Next g
End If
End If
Next f
End If
End If
Next e
End If
End If
Next d
End If
End If
Next c
End If
End If
Next b
End If
End If
Next a
MsgBox "0-9 不重复使用组成 9 位数 abcdefghi,满足以下要求:" & vbCrLf & vbCrLf & "左起 1-9 位能被对应的位数整除.即:" & vbCrLf & "a 能被 1 整除." & vbCrLf & "ab 能被 2 整除." & vbCrLf & "." & vbCrLf & "abcdefghi 能被 9 整除." & vbCrLf & vbCrLf & "符合要求的结果如下:" & 结果,vbInformation,"0-9 组成的 9 位数"
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 牛人快来
- 关于碱金属和卤族元素与水的反应
- every、each、no后加名词 谓语用单数还是复数?
- 一个长方形如果长增加2厘米,面积就增加10平方厘米,如果宽减少3厘米,面积就减少18厘米,求原来长方形的面积
- 气象局如何测量平均气温的
- 陶渊明 附四时诗的翻译...急啊
- 急求:把一个减法算式里的被减数、减数和差相加得135,已知减数与差的比是3:1,求被减数、减数、差各是多
- 身是菩提树,心为明镜台,时时勤拂拭,勿使惹尘埃.这首诗作者是唐朝哪位高僧?
- 判断下列各句表达方式
- 已知4阶矩阵A=(α1 α2 α3 α4)的列向量组中,α1 α2 α3 α4线性无关,α3=2α1+α2-2α4,
热门考点