| changeset 859 | f766d3486c9d |
| parent 853 | 568671822d52 |
| 858:13a6eb21706b | 859:f766d3486c9d |
|---|---|
1 write "Fib: "; |
1 write "Fib: "; |
2 read n; |
2 read n; |
3 minus1 := 0; |
3 minus1 := 1; |
4 minus2 := 1; |
4 minus2 := 0; |
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 |