3 lines
122 B
Text
3 lines
122 B
Text
WriteString[$Output, "3."];
|
|
For[i = -1, True, i--,
|
|
WriteString[$Output, RealDigits[Pi, 10, 1, i][[1, 1]]]; Pause[.05]];
|