作业帮使用循环语句打印出以下这个三角形.（如补充）01 22 3 43 4 5 64 5 6 7 85 6 7 8 9 106 7 8 9 10 11 127 8 9 10 11 12 13 14 8 9 10 11 12 13 14 15 169 10 11 12 13 14 15 16 17 18
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 15:43:05
使用循环语句打印出以下这个三角形.（如补充）01 22 3 43 4 5 64 5 6 7 85 6 7 8 9 106 7 8 9 10 11 127 8 9 10 11 12 13 14 8 9 10 11 12 13 14 15 169 10 11 12 13 14 15 16 17 18
使用循环语句打印出以下这个三角形.（如补充）
0
1 2
2 3 4
3 4 5 6
4 5 6 7 8
5 6 7 8 9 10
6 7 8 9 10 11 12
7 8 9 10 11 12 13 14
8 9 10 11 12 13 14 15 16
9 10 11 12 13 14 15 16 17 18
使用循环语句打印出以下这个三角形.（如补充）01 22 3 43 4 5 64 5 6 7 85 6 7 8 9 106 7 8 9 10 11 127 8 9 10 11 12 13 14 8 9 10 11 12 13 14 15 169 10 11 12 13 14 15 16 17 18
可以直接写在Form_Paint事件里,也可以写到一个按钮事件里,代码如下：
Private Sub Form_Paint()
Dim i As Integer, j As Integer
Dim tmp As String
For i = 0 To 9
For j = i To 2 * i
tmp = tmp & j & " "
Next
Print tmp
tmp = ""
Next
End Sub
var
i,j:integer;
begin
for i:=0 to 9 do begin
for j:=i to i*2 do write(j);
writeln;
end;
readln;
end.