Contents

PROGRAM INTEGER_ARITHMETIC

!
! f c.
!

!$INTEGER

BEGIN
  INPUT("E  ub ",A)
  INPUT("E  ub ",B)

  PRINT("A "A"+"B"="(A+B))
  PRINT("Subc "A"-"B"="(A-B))
  PRINT("Muc "A"*"B"="(A*B))
  PRINT("I  "A""B"="(A DIV B))
  PRINT("R  u "A""B"="(A MOD B))
  PRINT("P "A"^"B"="(A^B))
END PROGRAM

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
zettacode-0.1.0	zettacode.files/arithmetic.integer/erre.txt