[讨论]守形数 — 编程爱好者社区

主题：[讨论]守形数

a292982250 [专家分：40] 发布于 2007-06-10 09:33:00

你们来编一道程序：
有一些数，把它们撕成两半，个位和十位一半，百位和千为一半，把它们加起来的二次方等于撕之前的数，求四位数内所有这样的数
如：
2025分为20和25
在加起来为20+25=55
55的二次方为55*55=2025

本帖地址： http://bbs.pfan.cn/post/237272.html

回复列表（共3个回复）

沙发

moz [专家分：37620] 发布于 2007-06-10 10:14:00

20+25=55？55*55=2025？

板凳

Matodied [专家分：7560] 发布于 2007-06-10 10:20:00

CLS
s = 0
FOR i = 1000 TO 9999
a = i \ 100: b = i MOD 100
IF (a + b) * (a + b) = i THEN PRINT i: s = s + 1
NEXT i
PRINT "Total:"; s
END

结果：
2025
3025
9801
Total：3

别忘了给我加分！！

3 楼

Templar9d [专家分：2110] 发布于 2007-06-10 10:34:00

Moz的眼神还是依旧那么好……

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]守形数

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[讨论]守形数

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）