RosettaCodeData/Task/Long-multiplication/PureBasic/long-multiplication-2.purebasic

8 lines
185 B
Text
Raw Permalink Normal View History

2013-06-05 21:47:54 +00:00
XIncludeFile "decimal.pbi"
Define.Decimal *a, *b
*a=PowerDecimal(IntegerToDecimal(2),IntegerToDecimal(64))
*b=TimesDecimal(*a,*a,#NoDecimal)
Print("2^64*2^64 = "+DecimalToString(*b))