Сделайте перевод 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;

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;

niki1232018ovv1ej · Answer

Это точный аналог фрагмента паскалевского кода. Работать не будет, поскольку недопустимо использовать в качестве параметра вложенного цикла 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

Сделайте перевод 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;

Сделайте перевод 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;