完美平方數 是指1個平方數 分成兩部分後,每個部分仍然是平方數。
定義
性質
套用
for$x(1..5){$y=10**$x;$z=int(sqrt($y));for$i(1..100000){for$j(1..$z){nextif!($j%10);$s=$y*$i*$i+$j*$j;$k=sqrt($s);if($k==int($k)){printf"%s*%s=%s%s*%s=%s%s*%s+%s=%s*%s=%s\n",$i,$i,$i*$i,$j,$j,$j*$j,$i*$i,$y,$j*$j,$k,$k,$s;}}}}