changeset 836 | a3418ee8c404 |
child 853 | 568671822d52 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/cwtests/cw03/fib.while Sun Sep 05 23:51:37 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 +