问题标题：
【pascal奇数阶幻方用pascal实现生成任意奇数阶幻方】
问题描述：
pascal奇数阶幻方
用pascal实现生成任意奇数阶幻方
雷琍英回答：
varx,y,z,m,n,i,j:integer;a:array[1..1000,1..1000]ofinteger;beginreadln(m);ifmmod2=1thenbeginn:=(mdiv2)+1;fori:=1tomdobeginforj:=1tomdoa[i,j]:=0;end;i:=1+1;j:=n+1;y:=1;forz:=1tom*md...
查看更多
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
