Question

Сделайте перевод c паскаль на Excel
for i:=0 to N do
begin
if C[i]=0 then C[i]:=1;
begin
for i:=i+1 to N do
begin
if C[i]<>0 then C[i]:=0;
if C[i]=0 then exit;
end;
end;
end;

Answer 1

Это точный аналог фрагмента паскалевского кода. Работать не будет, поскольку недопустимо использовать в качестве параметра вложенного цикла For ту же переменную i, что и во внешнем цикле For.

   For i = 0 To N

       If c(i) = 0 Then

           c(i) = 1

           For i = i + 1 To N

               If c(i) <> 0 Then c(i) = 0

               If c(i) = 0 Then Return

           Next

       End If

   Next