难呀难呀!!帮帮忙密码解译
来源:百度知道 编辑:UC知道 时间:2024/05/29 23:14:59
问题补充:字母代表1-9,不包括0
编一个简单的多重循环程序,用计算机上一试就行了.
我用Mathematica程序运行了一下,可能题目有问题,没有答案:
For[i1 = 1, i1 ≤ 9, i1++,
For[i2 = 1, i2 ≤ 9, i2++, If[(i2 ≠ i1),
For[i3 = 1, i3 ≤ 9, i3++, If[(i3 ≠ i2) && (i3 ≠ i1),
For[i4 = 1, i4 ≤ 9, i4++, If[(i4 ≠ i3) && (i4 ≠ i2) && (i4 ≠ i1),
For[i5 = 1, i5 ≤ 9, i5++, If[(i5 ≠ i4) && (i5 ≠ i3) && (i5
≠ i2) && (i5 ≠ i1),
For[i6 = 1,
i6 ≤ 9, i6++, If[(i6 ≠ i5) && (i6 ≠ i4) && (i6 ≠ i3) && (
i6 ≠ i2) && (i6 ≠ i1),
For[i7 =
1, i7 ≤ 9, i7++, If[(i7 ≠ i6) && (i7 ≠ i5) && (i7
≠ i4) && (i7 ≠ i3) && (i7 ≠ i2) && (i7 ≠ i1),
For[i8 = 1, i8 ≤ 9, i8++, If[(i8 ≠ i7) && (i8 ≠
i6) && (i8 ≠ i5) && (i8
≠ i4) && (i8 ≠ i3) && (i8 ≠ i2) && (i8 ≠ i1),