欢迎来到贱贱的博客
扩大
缩小

Pascal输出星星 

 1 program Project2;
 2 
 3 {$APPTYPE CONSOLE}
 4 
 5 uses
 6   SysUtils;
 7 
 8 var
 9   i,j:integer;
10 
11 begin
12   { TODO -oUser -cConsole Main : Insert code here }
13   for i:=1 to 5 do
14   begin
15   for j:=1 to i do
16   write('*');
17   writeln;
18   end;
19   readln;
20 end.

posted on 2017-01-20 10:42  L的存在  阅读(258)  评论(0)  编辑  收藏  举报

导航