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