changeset 833 | aad5957eb7e4 |
child 853 | 568671822d52 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/cwtests/cw02/fib.while Sat Sep 04 14:08:00 2021 +0100 @@ -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 +