'同构数是会出现在它的平方的右边的数

最新推荐文章于 2024-02-12 17:28:06 发布

智者知已应修善业

最新推荐文章于 2024-02-12 17:28:06 发布

阅读量2.2k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/xianfajushi/article/details/46706421

本文介绍了一种使用Visual Basic编程语言来查找同构数的方法。同构数是指一个数的平方中包含该数自身的情况，例如25是一个同构数，因为它的平方625包含了25。代码通过遍历一定范围内的整数并检查每个数的平方是否包含该数来实现这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'同构数是会出现在它的平方的右边的数
        Dim aa = Enumerable.Range(1, 10000).Select(Function(bb) IIf((bb * bb).ToString.Length - (bb * bb).ToString.IndexOf(bb.ToString) = bb.ToString.Length And bb > 1, bb, vbNull)).Distinct()
        Console.WriteLine(String.Join(" ", aa))
        Dim x1, x2 As String
        For 序 As Integer = 1 To 1000 Step 1
            x1 = 序.ToString
            x2 = (序 * 序).ToString
            If x2.Length - x2.IndexOf(x1) = x1.Length And 序 > 1 Then Console.WriteLine(序)
        Next