pascal 奇数阶幻方

题目

pascal 奇数阶幻方
用pascal实现生成任意奇数阶幻方

答案

varx,y,z,m,n,i,j:integer;a:array[1..1000,1..1000] of integer;beginreadln(m);if m mod 2=1 thenbeginn:=(m div 2)+1;for i:=1 to m dobeginfor j:=1 to m doa[i,j]:=0;end;i:=1+1;j:=n+1;y:=1;for z:=1 to m*m d...