| author | Christian Urban <christian.urban@kcl.ac.uk> |
| Fri, 03 Oct 2025 10:10:33 +0100 | |
| changeset 997 | a4212e8bdcad |
| parent 804 | 614de60d37d6 |
| permissions | -rw-r--r-- |
|
147
4725bba8ef26
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
1 |
write "Input a number "; |
|
4725bba8ef26
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
2 |
read n; |
|
4725bba8ef26
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
3 |
while n > 1 do {
|
|
4725bba8ef26
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
4 |
if n % 2 == 0 |
|
4725bba8ef26
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
5 |
then n := n/2 |
| 804 | 6 |
else n := 3*n+1 |
|
147
4725bba8ef26
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
7 |
}; |
| 804 | 8 |
write "Yes" |