RosettaCodeData/Task/Currency/Mathematica/currency.math

6 lines
244 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
total = 4000000000000000 Rationalize[5.50] + 2 Rationalize[2.86];
AccountingForm[N[total, 20], {\[Infinity], 2}]
tax = total Rationalize[0.0765];
AccountingForm[N[tax, 20], {\[Infinity], 2}]
AccountingForm[N[total + tax, 20], {\[Infinity], 2}]