833
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
1 |
write "Input a number ";
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
2 |
read n;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
3 |
while n > 1 do {
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
4 |
if n % 2 == 0
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
5 |
then n := n/2
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
6 |
else n := 3*n+1
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
7 |
};
|
856
|
8 |
write "Yes\n"
|