Переделайте на цикл while var i,n,x,y: longint; - вопрос №17012001 от madam7952 20.08.2022 08:49

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.

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