Сделайте перевод 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;
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;
More Questions From This User See All
Answers & Comments
Это точный аналог фрагмента паскалевского кода. Работать не будет, поскольку недопустимо использовать в качестве параметра вложенного цикла 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