changeset 852 | 8706b846a3e0 |
parent 836 | a3418ee8c404 |
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 } |