| changeset 853 | 851d8c00f033 |
| parent 833 | 7c3b8bb4a174 |
| child 933 | 4d9674598682 |
| 852:b68252417cf4 | 853:851d8c00f033 |
|---|---|
1 write "Fib"; |
1 write "Fib: "; |
2 read n; |
2 read n; |
3 minus1 := 0; |
3 minus1 := 0; |
4 minus2 := 1; |
4 minus2 := 1; |
5 while n > 0 do { |
5 while n > 0 do { |
6 temp := minus2; |
6 temp := minus2; |
7 minus2 := minus1 + minus2; |
7 minus2 := minus1 + minus2; |
8 minus1 := temp; |
8 minus1 := temp; |
9 n := n - 1 |
9 n := n - 1 |
10 }; |
10 }; |
11 write "Result"; |
11 write "Result: "; |
12 write minus2 |
12 write minus2 ; |
13 write "\n" |
|
13 |
14 |