Distribution of 0 digits in factorial series: Difference between revisions

m
→‎{{header|REXX}}: changed a comment.
(added pascal)
m (→‎{{header|REXX}}: changed a comment.)
Line 443:
!= ! * i /*calculate the factorial of BIG. */
end /*i*/
if pos('E', !)>0 then do /*if its in exponential format, get EXP. */
parse var ! 'E' x /*parse the exponent from the number. */
numeric digits x+1 /*set the decimal digits to X plus 1.*/