| changeset 750 | 40b7efa5fbed |
| parent 748 | fca7f33a426c |
| 749:7e6bb23d415a | 750:40b7efa5fbed |
|---|---|
15 |
15 |
16 if n % 2 == 0 |
16 if n % 2 == 0 |
17 then n := n / 2 |
17 then n := n / 2 |
18 else n := 3 * n+1; |
18 else n := 3 * n+1; |
19 |
19 |
20 cnt := cnt + 1; |
20 cnt := cnt + 1 |
21 }; |
21 }; |
22 |
22 |
23 write " => "; |
23 write " => "; |
24 write cnt; |
24 write cnt; |
25 write "\n"; |
25 write "\n"; |
26 bnd := bnd + 1; |
26 bnd := bnd + 1 |
27 }; |
27 } |