【入门】寻找雷劈数

【入门】寻找雷劈数

题意分析：

这道题的题目还是比较明了的，这里就不做过多解释了。

解题思路：

截取出来后根据题目要求判断。

算法分析：

用for语句在1000到9999之间循环，

把千位+百位和十位+个位截取出来，

再根据题目进行判断。

答案参考：

var

i,ab,cd:longint;

begin

for i:=1000 to 9999 do      //循环

begin

ab:=i div 100;

cd:=i mod 100;

if (ab+cd)*(ab+cd)=i then    //判断

writeln(i);

end;

end.