| changeset 852 | b68252417cf4 |
| parent 836 | c8c30949e06f |
| 851:2918388fe4ab | 852:b68252417cf4 |
|---|---|
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 } |