杨辉三角形

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   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;
    writeln;
    end;
   readln;

end.

 

https://files.cnblogs.com/atiger/基础算法(控制台程序).rar