Переделайте на цикл while var i,n,x,y: longint; begin - вопрос №170210210 от Mimimimimi5555555555 13.04.2020 18:17

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.

Mimimimimi5555555555 · 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....