| author | Christian Urban <urbanc@in.tum.de> |
| Fri, 21 Feb 2020 23:55:56 +0100 | |
| changeset 714 | 9d06a8863898 |
| parent 674 | 49bdf6f8ac16 |
| permissions | -rw-r--r-- |
| 674 | 1 |
// prints out prime numbers from |
2 |
// 2 to 100 (end) |
|
3 |
||
4 |
end := 100; |
|
5 |
n := 2; |
|
6 |
while (n < end) do {
|
|
7 |
f := 2; |
|
8 |
tmp := 0; |
|
9 |
while ((f < n / 2 + 1) && (tmp == 0)) do {
|
|
10 |
if ((n / f) * f == n) then { tmp := 1 } else { skip };
|
|
11 |
f := f + 1 |
|
12 |
}; |
|
13 |
if (tmp == 0) then { write(n) } else { skip };
|
|
14 |
n := n + 1 |
|
15 |
} |