您所在位置：主题：有道很简单的题不会
johnsage
[专家分：10] 发布于 2006-06-29 21:13:00
打印N行等腰三角形,下图N=5：
*
***
*****
*******
*********
以下程序采用双重循环，第一重控制行数，第二重控制每行*的个数。
Var N,I,J:Integer;
Begin
Readln(N);
For I:=1 To N Do
Begin
Write('':N+1-i);
For J:=1 To ____________ Do Write('*');
Writeln;
End;
End.
填空题
*
***
*****
*******
*********
以下程序采用双重循环，第一重控制行数，第二重控制每行*的个数。
Var N,I,J:Integer;
Begin
Readln(N);
For I:=1 To N Do
Begin
Write('':N+1-i);
For J:=1 To ____________ Do Write('*');
Writeln;
End;
End.
填空题
