2014年12月16日

Delphi 打印杨辉三角

摘要: program yanghui1;{$APPTYPE CONSOLE}uses SysUtils; var i,j,t,n:Integer; a:array[0..14,0..14] of Integer; begin write('请输入行数:'); readln(n); for i... 阅读全文

posted @ 2014-12-16 10:32 @冰糖 阅读(524) 评论(0) 推荐(0) 编辑

导航