关于for的算法问题！救我1

Question

难！Pascal不允许在循环体内改变循环变量的值，也不像Basic语言那样用step语句指定步长。你可以用while循环代替。

Answer 1

k;=0;
i:=1;
j:=1;While(i<=10) do
Begin
   While(j<=6) do
    Begin  
      j:=j+2;
      k:=k+1;
      Label1.caption:=InttoStr(k);
    End;
    i:=i+2;
End;
  

Answer 2

for i:=1 to 10 do
  if (i mod 2)=1(0) then 
  for j:1 to 6 do 
    begin
      if (j mod 2)=1(0) then
      begin
        k:=K+1;
        label1.caption:=inttostr(k);
      end;
    end;

Answer 3

for i:=0 to 10 do
begin
  inc(i);
...

Answer 4

对对，我也犯了刚才那位同样的错误，
应该是这样：
k;=0;
i:=1;While(i<=10) do
Begin
  j:=1;
  While(j<=6) do
    Begin  
      j:=j+2;
      k:=k+1;
      Label1.caption:=InttoStr(k);
    End;
    i:=i+2;
End;