переделайте ** цикл while пожалуйста var i,n,x,y:longint; begin read(n); x:=1; y:=0; for...

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.

Answer 1

var i,n,x,y:longint;

begin

read(n);

x:=1;

y:=0;

i:=1;

while (i<=n) do begin</strong>

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.