Переделайте на цикл while пожалуйста var i,n,x,y:longint; begin read(n); x:=1; y:=0; for i:=1 to n do begin if i mod 2=0 then y:=x+y else x:=x+y; end; if n mod 2=0 then writeln(y) else writeln(x); end.

Question

Переделайте на цикл while пожалуйста var i,n,x,y:longint; begin read(n); x:=1; y:=0; for i:=1 to n do begin if i mod 2=0 then y:=x+y else x:=x+y; end; if n mod 2=0 then writeln(y) else writeln(x); end.

Гость

Ответ(ы) на вопрос:

Accepted Answer

var i,n,x,y:longint; begin read(n); x:=1; y:=0; i:=1; while (i<=n) do begin if i mod 2=0 then y:=x+y else x:=x+y; inc(i); end; if n mod 2=0 then writeln(y) else writeln(x); end.