本文通过编程方式解决了一个数学问题，即在0到9的范围内找到所有满足特定数学条件的三元组（x, y, z），使得x乘以y除以10的余数等于z，x乘以y除以10加上x的平方再除以10的余数也等于z，以及x乘以y除以10加上x的平方的结果除以10等于z。通过遍历所有可能的x和y值，找到了满足条件的唯一一组解。
今天看到新浪微博上面一道题目：
001.png
xy
x
-------
zzz
根据题目列出条件为：
mod(x*y,10)=z
mod(x*y\10+x*x,10)=z
(x*y\10+x*x)\10=z
|
Dim x,y,z
'MsgBox 12 Mod 10 'MsgBox 9\4
For x=0 to 9 For y=0 to 9 For z=0 to 9 'mod(x*y,10)=z 'mod(x*y\10+x*x,10)=z '(x*y\10+x*x)\10=z If (x*y Mod 10=z) And ((x*y\10+x*x) Mod 10=z) And (x*y\10+x*x)\10=z Then MsgBox "x=" & x & " y=" & y & " z=" & z End If Next Next Next |
结果：
|
x=0 y=0 z=0 x=0 y=1 z=0 x=0 y=2 z=0 x=0 y=3 z=0 x=0 y=4 z=0 x=0 y=5 z=0 x=0 y=6 z=0 x=0 y=7 z=0 x=0 y=8 z=0 x=0 y=9 z=0 x=3 y=7 z=1 |
编程有意思吧，嘿嘿嘿
扫一扫
2031
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
