RosettaCodeData/Task/Arithmetic-Integer/I/arithmetic-integer.i

12 lines
288 B
OpenEdge ABL

main
a $= integer(in(' ')); ignore
b $= integer(in('\n')); ignore
print("Sum:" , a + b)
print("Difference:", a - b)
print("Product:" , a * b)
print("Quotient:" , a / b) // rounds towards zero
print("Modulus:" , a % b) // same sign as first operand
print("Exponent:" , a ^ b)
}