cwtests/cw04/fib.while
changeset 836 a3418ee8c404
child 852 8706b846a3e0
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cwtests/cw04/fib.while	Sun Sep 05 23:51:37 2021 +0100
@@ -0,0 +1,12 @@
+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