急救~~~~~~~~~ — 编程爱好者社区

主题：急救~~~~~~~~~

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

打印杨辉三角形

              1
            1  1
          1  2  1
        1  3  3  1
      1  4  6  4  1

   …
…
1  10  45  ...45  10  1

沙发

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

var m,n,c:integer;
begin
for m:=0 to 10 do
begin
c:=1;
write(c:40-3*m);
for n:=1 to m do
begin
c:=c*(m-n+1) div n;
write(c:6);
end;
end;
end.

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