出这题的人找骂？这么麻烦，全练打字了。NOIP要是真考一道这种题，偶绝对放弃！

一行一行处理的....

const maxn=10000;

num:array[1..5,0..9] of integer=((1,0,1,1,0,1,1,1,1,1),(2,1,1,1,2,0,0,1,2,2),(0,0,1,1,1,1,1,0,1,1),(2,1,0,1,1,1,2,1,2,1),(1,0,1,1,0,1,1,0,1,1));

var i,j,k,m,l,q:longint;

a:array[0..maxn] of integer;

st:string;

begin

readln(k);

readln(st);

l:=length(st);

for i:=1 to l do

a[i]:=ord(st[i])-ord('0');

{1}

for i:=1 to l do

begin

write(' ');

if (num[1,a[i]]=1) then for m:=1 to k do write('-')

else for m:=1 to k do write(' ');

write(' ');

if i

编译通过...

├ 测试数据 01：运行时错误...|错误号: 2621146

├ 测试数据 02：运行时错误...|错误号: 2621150

├ 测试数据 03：运行时错误...|错误号: 2621161

├ 测试数据 04：运行时错误...|错误号: 2621156

├ 测试数据 05：运行时错误...|错误号: 2621156

├ 测试数据 06：运行时错误...|错误号: 2621149

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行时错误...|错误号: 2621147

├ 测试数据 09：运行时错误...|错误号: 2621145

├ 测试数据 10：运行时错误...|错误号: 2621181

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：10 有效耗时：0ms

什么意思...

想了三个晚上：

第一晚上，毫无思路；

第二晚上，有些思路，但很抱歉，思路错了；

第三晚上（确切地说是第三天下午，一个下雨的下午，天阴的跟晚上似的），

好不容易，敲了将近200行代码，可惜，失之毫厘，差之千里，我忘记了最后一个数字后面没有空格，555555！0分啊！！！AC率狂下！！555！想想就忍不住要哭！

不过也好，最后成功了！

我更深刻的知道了什么叫坚持不懈！！！!!

第929个通过的！庆祝！！o(∩_∩)o...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

交了9次 汗~~~~

最后才查出来最后一列多了个空格

我的程序超长

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

大牛帮俺看一下 谢了

var

k,pi:longint;

s:string;

procedure ff(x:longint);

var

i,j:longint;

n:string;

begin

n:='';

for i:=1 to pi do

if (s[i] in ['2','3','5','6','8','9'])or((x=1)and((s[i]='7'))or(x mod 2=1)and(s[i]='0'))

then begin

n:=n+' ';

for j:=1 to k do

n:=n+'-';

n:=n+' ';

end

else if s[i] in ['0','7','4']

then begin

n:=n+' ';

if (x=2)and(s[i]='4')

then for j:=1 to k do

n:=n+'-'

else for j:=1 to k do

n:=n+' ';

n:=n+' ';

end

else n:=n+' ';

delete(n,1,1);

writeln(n);

end;

procedure ww(x:longint);

var

i,j:longint;

n:string;

begin

n:='';

for i:=1 to pi do

if s[i] in ['0','8','4','9']

then begin

if (x>1)and(s[i] in ['4','9'])

then n:=n+' '

else n:=n+' |';

for j:=1 to k do

n:=n+' ';

n:=n+'|';

end

else if s[i] in ['3','7','2']

then begin

if (x>1)and(s[i]='2')

then n:=n+' |'

else n:=n+' ';

for j:=1 to k do

n:=n+' ';

if (x>1)and(s[i]='2')

then n:=n+' '

else n:=n+'|';

end

else if s[i] in ['5','6']

then begin

if (x=1)or(s[i]='6')

then n:=n+' |'

else n:=n+' ';

for j:=1 to k do

n:=n+' ';

if x=1

then n:=n+' '

else n:=n+'|';

end

else if s[i]='1'

then n:=n+' |';

delete(n,1,1);

for j:=1 to k do

writeln(n);

end;

begin

readln(k);

readln(s);

pi:=length(s);

ff(1);

ww(1);

ff(2);

ww(2);

ff(3);

end.

感觉很有意思的一道题~尤其是输出数字的时候~

一行一行的输出就OK了~

裤子，我同情你啊。。。

我直接输入。。。输出重点是这几个循环。。。

readln(k);

readln(s);

for i:= 1 to length(s) do

begin

if i 1 then write(' ');

write(' ');

case s[i] of

'1','4':for j:= 1 to k do write(' ');

'2','3','5','6','7','8','9','0':for j:= 1 to k do write('-');

end;

write(' ');

end;

writeln;

for i:= 1 to k do

begin

for j:= 1 to length(s) do

begin

if j 1 then write(' ');

case s[j] of

'4','5','6','8','9','0':write('|');

'1','2','3','7':write(' ');

end;

write(' ':k);

case s[j] of

'1','2','3','4','7','8','9','0':write('|');

'5','6':write(' ');

end;

end;

writeln;

end;

for i:= 1 to length(s) do

begin

if i 1 then write(' ');

write(' ');

case s[i] of

'1','7','0':for j:= 1 to k do write(' ');

'2','3','4','5','6','8','9':for j:= 1 to k do write('-');

end;

write(' ');

end;

writeln;

for i:= 1 to k do

begin

for j:= 1 to length(s) do

begin

if j 1 then write(' ');

case s[j] of

'2','6','8','0':write('|');

'1','3','4','5','7','9':write(' ');

end;

write(' ':k);

case s[j] of

'1','3','4','5','6','7','8','9','0':write('|');

'2':write(' ');

end;

end;

writeln;

end;

for i:= 1 to length(s) do

begin

if i 1 then write(' ');

write(' ');

case s[i] of

'1','4','7':for j:= 1 to k do write(' ');

'2','3','5','6','8','9','0':for j:= 1 to k do write('-');

end;

write(' ');

end;

又是一道直接敲过的。。。纪念哈。。。

第898人。。。要是中间那个也是8多好啊......

晕.......................最后1列的空格！！！！！！！！！！wa了2次

布尔解法核心代码：

const

data:array[0..9,1..7] of boolean=

((true,true,true,false,true,true,true),

(false,false,true,false,false,true,false),

(true,false,true,true,true,false,true),

(true,false,true,true,false,true,true),

(false,true,true,true,false,true,false),

(true,true,false,true,false,true,true),

(true,true,false,true,true,true,true),

(true,false,true,false,false,true,false),

(true,true,true,true,true,true,true),

(true,true,true,true,false,true,true));

解释：9格算1个数：

123

456

789

1..7表示上面的2 1 3 5 7 9 8是否有字符

procedure line(q:longint);

begin

{if s[1]='1' then

begin

i:=2;

write(' ');

end

else i:=1;}i:=1;

while i

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

这个题大家不要做！！！太害人啦！！~

如果你执意要做 要注意：当1打头时(k=1)应输出

|

|

而不是

|

|

也就是说 “数前无空格”，9格算1个数：

000

000

000

还有 最后无空格！结尾无空行！

我以对题率下降为代价 研究了一晚上.......

第一个字前居然不用空格……

不听出题人的劝 只有吃亏的``

我一开始就要保存再输出 结果 超时 格式错误 内存溢出

后来改了就AC

所以说 同志们要听劝啊

第825个通过，第2500个提交！

^^^

纪念一下，打了好多行……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

AC的感觉就是好啊。。。

有点空虚的说...程序有点长.....

大家注意！！！

第一个数字之前没有空格！！！！

开头无空格

大家只要注意……

…………最开始有K个空格…………

就好了