满意答案
wanglvshu
2014.07.27
采纳率:46% 等级:9
已帮助:1314人
以下是Pascal语言源码,C语言只要在语法上调整一下 const num:array [0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); function convert(k:integer; n:integer):string; var i,m:integer; j:array[1..8] of integer; begin convert:=''; i:=0; while k div n <> 0 do begin inc(i); j[i]:=k mod n; k:=k div n; end; if k<>0 then begin inc(i); j[i]:=k; end; for m:=i downto 1 do convert:=convert + num[j[m]]; end; var n,i,j,s:integer; begin readln(n); for i:=1 to n-1 do begin for j:=1 to i do begin write(convert(i*j,n),' '); end; writeln; end; readln; end.
00分享举报