RosettaCodeData/Task/Loops-Continue/Mathematica/loops-continue.math

11 lines
155 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
tmp = "";
For[i = 1, i <= 10, i++,
tmp = tmp <> ToString[i];
If[Mod[i, 5] == 0,
tmp = tmp <> "\n";
,
tmp = tmp <> ", ";
];
];
Print[tmp]