for i=1 to 6 if i =1 then x= i if i=4 then x=x+1dim i as intenger,x as intengerfor i=1 to 6 if i =1 then x= iif i=4 then x=x+1else x=x+2end ifnext iprint xend sub

DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT FOR I=1 TO 5 FOR J=1 TO 5 IF A(J)>A( for i=1 to 6 if i =1 then x= i if i=4 then x=x+1dim i as intenger,x as intengerfor i=1 to 6 if i =1 then x= iif i=4 then x=x+1else x=x+2end ifnext iprint xend sub for i=1 to30 if int（i/5）=i/5 then s=s+i i=i+6 next i 求s For i=−1,if 3i(2+5i)=x+6i,then x=? Private Sub command1_click()For i = 1 To 4If i > 3 Then Exit ForNext iFor j = 1 To 6i = i + jNext jPrint i,jEnd Sub最好一步一步作出结果 dimension a(10)for i=1 to10a（i）=i+1endforfor i=1 to 9for j=i+1 to 10if a(i) SUM(IF(I:I=,,1/(COUNTIF(I:I,I: Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 10 Then Exit For Next PriDim i As Integer,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextPrint n怎么算 pascal问题求输出var a:array[1..6] of integer;　i,j,p,t:integer;begin　for i:=1 to 6 do read(a[i]);　for j:=1 to 6-1 dobeginp:=j;for i:=j to 6 doif a[i]< a[p] then p:=i;t:=a[p];a[p]:=a[j];a[j]:=t;end;　for i:=1 to 6 dobeginwrite(a[i]:2);if i 在线等if((haveThe(p,*(p i) 1)>=1)for(i=0;i 2个矩阵相加,For i = 1 To 4For j = 1 To 4c(i,j) = a(i,j) + b(i,j)Picture3.Print c(i,j);If i = 1 And j = 1 ThenMax = c(i,j)ElseIf Max < c(i,j) Then Max = c(i,j):n = i:m = jEnd IfNext jPicture3.PrintNext i这个和For i = 1 To 4For j = 1 To 4c(i,j) delphi for i := 1 to 10 do begin if Terminated then Exit; sleep(100); end;for i := 1 to 10 dobeginif Terminated thenExit;sleep(100);end; SET TALK OFF CLEAR FOR I=1 TO 20 FOR J=1 TO 33 FOR K=(100-I*5-J*3)*3 IF I=J=K=100 I,J,K ENDIF ENDFOK=(100-I*5-J*3)*3 提示语法错误SET TALK OFFCLEARFOR I=1 TO 20FOR J=1 TO 33FOR K=(100-I*5-J*3)*3IF I=J=K=100I,J,KENDIFENDFORENDFORENDFORSET TALK ON s=0 for i = 1 to 10 if mod(i,3)0 loop else s=s+i endif endf s,is=0for i = 1 to 10if mod(i,3)0loopelses=s+iendifendfs,i最后输出结果 i=11 请问i=11是怎么算出来的? for(i=1;i for(i=1;i for(i=1;i for(i=1;i