changeset 742 | b5b5583a3a08 |
parent 741 | e66bd5c563eb |
child 743 | 6acabeecdf75 |
--- a/progs/primes.while Mon Jul 27 11:02:48 2020 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -// prints out prime numbers from -// 2 to 100 (end) - -end := 100; -n := 2; -while (n < end) do { - f := 2; - tmp := 0; - while ((f < n / 2 + 1) && (tmp == 0)) do { - if ((n / f) * f == n) then { tmp := 1 } else { skip }; - f := f + 1 - }; - if (tmp == 0) then { write(n) } else { skip }; - n := n + 1 -} \ No newline at end of file