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.

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/lanjianhappy/p/6322127.html