Переделайте на цикл while var i,n,x,y: longint; - вопрос №1011701425 от jru77 05.11.2020 22:59

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.

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