RosettaCodeData/Task/Loops-Continue/Mathematica/loops-continue.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

10 lines
155 B
Text

tmp = "";
For[i = 1, i <= 10, i++,
tmp = tmp <> ToString[i];
If[Mod[i, 5] == 0,
tmp = tmp <> "\n";
,
tmp = tmp <> ", ";
];
];
Print[tmp]