changeset 864 | b5b1bc0a603b |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/solution/cw3/fib.while Wed Dec 15 19:00:01 2021 +0000 @@ -0,0 +1,13 @@ +write "Fib: "; +read n; +minus1 := 0; +minus2 := 1; +while n > 0 do { + temp := minus2; + minus2 := minus1 + minus2; + minus1 := temp; + n := n - 1 +}; +write "Result: "; +write minus2 +