RosettaCodeData/Task/Arithmetic-Integer/Maple/arithmetic-integer-1.maple
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

10 lines
411 B
Text

DoIt := proc()
local a := readstat( "Input an integer: " ):
local b := readstat( "Input another integer: " ):
printf( "Sum = %d\n", a + b ):
printf( "Difference = %d\n", a - b ):
printf( "Product = %d\n", a * b ):
printf( "Quotient = %d\n", iquo( a, b, 'c' ) ):
printf( "Remainder = %d\n", c ); # or irem( a, b )
NULL # quiet return
end proc: