相信也看出來(lái)了，這就是一個(gè)水題啊~~~不過(guò)注意空格的個(gè)數(shù)，數(shù)字兩兩之間存在一個(gè)空格。var a:string; i,j,k,l,n:longint;begin readln(n); readln(a); for i:=1 to length(a) do begin write(' '); if (a[i]='1')or(a[i]='4') then for j:=1 to n do write(' ') else for j:=1 to n do write('-'); write(' '); end; writeln; for i:=1 to n do begin for j:=1 to length(a) do begin if (a[j]='1')or(a[j]='2')or(a[j]='3')or(a[j]='7') then begin for k:=1 to n+1 do write(' '); write('| '); end else if (a[j]='5')or(a[j]='6') then begin write('|'); for k:=1 to n+2 do write(' '); end else begin write('|'); for k:=1 to n do write(' '); write('| '); end; end; writeln; end; for i:=1 to length(a) do begin write(' '); if (a[i]='1')or(a[i]='7')or(a[i]='0') then for j:=1 to n do write(' ') else for j:=1 to n do write('-'); write(' '); end; writeln; for i:=1 to n do begin for j:=1 to length(a) do begin if (a[j]='1')or(a[j]='3')or(a[j]='4')or(a[j]='5')or(a[j]='7')or(a[j]='9') then begin for k:=1 to n+1 do write(' '); write('| '); end else if a[j]='2' then begin write('|'); for k:=1 to n+2 do write(' '); end else begin write('|'); for k:=1 to n do write(' '); write('| '); end; end; writeln; end; for i:=1 to length(a) do begin write(' '); if (a[i]='1')or(a[i]='4')or(a[i]='7') then for j:=1 to n do write(' ') else for j:=1 to n do write('-'); write(' '); end; writeln;end.
