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

Irakli2007    1   22.05.2019 03:10    0