作业帮 > 综合 > 作业

d021: 四位整数 编程找出四位整数 abcd 中满足下述关系的数: ( ab + cd )( ab + cd ) =

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/09 08:22:19
d021: 四位整数 编程找出四位整数 abcd 中满足下述关系的数: ( ab + cd )( ab + cd ) = abcd输出从小到大
一行一个输出的时候
var
i : integer;
begin
for i:=1000 to 9999 do
if (((i div 100)+(i mod 100)) * ((i div 100)+(i mod 100)) =i) then
writeln(i);
end.
我学的是PASCAL语言,为什么这还么做啊?
d021: 四位整数 编程找出四位整数 abcd 中满足下述关系的数: ( ab + cd )( ab + cd ) =
if (((i div 100)+(i mod 100)) * ((i div 100)+(i mod 100)) =i)

i:=1000 to 9999 就是i从1000到9999 就是游遍所有的4位数字
i div 100(取商 不取余数) 就是取4位数字的前2位 i % 100(取余数 不取商) 就是取4位数字的后2位
对上 上面的关系 ( ab + cd )( ab + cd ) = abcd
ab 前2位 cd 后2位 相加再相乘