cwtests/cw03/primes.while
changeset 852 8706b846a3e0
parent 836 a3418ee8c404
equal deleted inserted replaced
851:48539905c447 852:8706b846a3e0
     7   tmp := 0;
     7   tmp := 0;
     8   while ((f < n / 2 + 1) && (tmp == 0)) do {
     8   while ((f < n / 2 + 1) && (tmp == 0)) do {
     9     if ((n / f) * f == n) then  { tmp := 1 } else { skip };
     9     if ((n / f) * f == n) then  { tmp := 1 } else { skip };
    10     f := f + 1
    10     f := f + 1
    11   };
    11   };
    12   if (tmp == 0) then { write(n) } else { skip };
    12   if (tmp == 0) then { write(n); write("\n") } else { skip };
    13   n  := n + 1
    13   n  := n + 1
    14 }
    14 }