foxJL

@echo off
set x=1
set /p max=打印出多少以内的勾股弦组合（勾^>3）：
:x
set /a x+=2,s=x*x,y=s/2,z=y+1
echo %x%,%y%,%z%
if %x% lss %max% goto x
pause
复制代码

foxJL

上面的代码算的不够全面.

[ 本帖最后由 foxJL 于 2008-3-23 15:48 编辑 ]