高手，快来救急啊~~~~~`` — 编程爱好者社区

您所在位置：社区首页 — PASCAL语言讨论区 — 高手，快来救急啊~~~~~``

主题：高手，快来救急啊~~~~~``

tanchenggang [专家分：0] 发布于 2005-03-22 18:06:00

打印下列图案：

* * * * * * *
  * * * * *
    * * *
      *

HELP~~~~
HELP~~~~

沙发

xuzhenyi [专家分：850] 发布于 2005-03-23 18:31:00

var i,k:integer;
begin
for i:=1 to 4 do
begin
for k:=1 to i do
write(' ');
for k:=1 to (4-i)*2+1 do
write('*');
writeln;
end;
end.

您尚未登录，请登录后再回复。点此登录或注册