var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i
var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i
for I:=1 to 9 do begin for j:=1 to 9 do begin write(j:1,’*’,
英语翻译var i,j;for(i=1;i
Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
delphi for i := 1 to 10 do begin if Terminated then Exit; sl
J = 10 For I = 1 To J Step 5 I = I + 2 J = J - I Next I Prin
dim m(5,5),s(5) for i=1 to 5 s(i)=0 for j=1 to 5 m(i,j)=i+j
For i = 1 To 4 For j = 1 To 5 b(i) = b(i) + a(i,j) Next j Ne
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
for(j=i+1;j