Переделайте на цикл 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.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Переделайте на цикл 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.» от пользователя Катя Слатинаа в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.