Переделайте на цикл while var i,n,x,y: longint; - вопрос №170210210 от staisywell1 31.08.2021 05:22

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.

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