新手求助，大神帮忙啊 - pascal吧

level 9

不去名字好吗楼主

这是题目，下面是我的编程，不知道哪里错了 [黑线]

2015年05月30日 11点05分 1

level 9

不去名字好吗楼主

别沉啊

2015年05月30日 11点05分 2

level 7

油海盈天清心长X

var n,i,j:longint;
begin
read(n);
for i:=1 to n do
begin
write('':n-i);
for j:=1 to i*2-1 do write('*');
write('':(n-i)*2);
for j:=1 to i*2-1 do write('*');
write('':(n-i)*2);
for j:=1 to i*2-1 do write('*');
writeln
end
end.

2015年05月30日 12点05分 3

不去名字好吗

可是我的bug在哪里？

2015年05月30日 12点05分

油海盈天清心长X

回复
��ȥ��ֺ��
:你的程序连样例都没过。

2015年05月30日 13点05分

不去名字好吗

回复 SSSwc03 ：。。。可是你的貌似不能运行

2015年05月30日 14点05分

level 2

LurkBlack

var n,i,j:longint;
begin
readln(n);
for j:=1 to n-1 do write(' ');
write('*');
for j:=1 to 2*(n-1) do write(' ');
write('*');
for j:=1 to 2*(n-1) do write(' ');
write('*');
writeln;
for i:=1 to n-1 do
begin
for j:=1 to n-i-1 do write(' ');
for j:=1 to 2*i+1 do write('*');
for j:=1 to 2*(n-i-1) do write(' ');
for j:=1 to 2*i+1 do write('*');
for j:=1 to 2*(n-i-1) do write(' ');
for j:=1 to 2*i+1 do write('*');
writeln;
end;
end.

2015年06月10日 10点06分 4

level 9

我名字七个子吧

我来个低质量回复吧
writeln" * * * "
writeln" *** *** ***"
下面以此类推，绝对过样例。只能骗分数用

2015年06月10日 11点06分 5

我名字七个子吧

反正大神都打过正确答案了

2015年06月10日 11点06分