d021: 四位整数 编程找出四位整数 abcd 中满足下述关系的数： ( ab + cd )( ab + cd ) = abcd输出从小到大一行一个输出的时候vari : integer;begin for i:=1000 to 9999 do if (((i div 100)+(i mod 100)) * ((i div
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 12:24:50
d021: 四位整数 编程找出四位整数 abcd 中满足下述关系的数： ( ab + cd )( ab + cd ) = abcd输出从小到大一行一个输出的时候vari : integer;begin for i:=1000 to 9999 do if (((i div 100)+(i mod 100)) * ((i div
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 ) = abcd输出从小到大一行一个输出的时候vari : integer;begin for i:=1000 to 9999 do if (((i div 100)+(i mod 100)) * ((i div
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位 相加再相乘