Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- even = {} ;
- i = 1;
- While[i <= 5, Print[i];If[EvenQ[i], AppendTo[even, i]]; i++]
- even
- (*{2, 4}*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement