Una pregunta de programación matemática

atenuar y(51,900), kk(51)

para i=1 a 51

kk(i)=0

siguiente

mm=3

para i=1 a mm 1

para j=1 a mm 1

para k =1 a mm 1

para m=1 a mm 1

para n=1 a mm 1

si no (i=j y i=k y i =m y i=n) entonces

nn=i j k m n-5

kk(nn 1)=kk(nn 1) 1

y (nn 1,kk(nn 1))=CStr(nn) "=" CStr(i-1) " " CStr(j-1) " " CStr(k-1) " " CStr(m-1) " " CStr( n-1)

terminar si

siguiente

siguiente

siguiente

siguiente

siguiente

para i=1 a mm*5

para j=1 a kk(i)

Response.Write("El resultado es " y(i,j) "---th" CStr(j) "número----total***" CStr(kk(i)) "número")

siguiente

siguiente

Los datos deben ser demasiado grandes y mi máquina no tiene suficiente buffer Ajústelos a 1, 2, 3. Si desea contar 1, 2, 3, 4, 5, 6, 7, 8, 9, establezca mm en 9