Contents

with Ada.Text_Io;
with Ada.Integer_Text_IO;

procedure Integer_Arithmetic is
   use Ada.Text_IO;
   use Ada.Integer_Text_Io;

   A, B : Integer;
begin
   Get(A);
   Get(B);
   Put_Line("a+b = " & Integer'Image(A + B));
   Put_Line("a-b = " & Integer'Image(A - B));
   Put_Line("a*b = " & Integer'Image(A * B));
   Put_Line("a/b = " & Integer'Image(A / B));
   Put_Line("a mod b = " & Integer'Image(A mod B)); -- Sign matches B
   Put_Line("remainder of a/b = " & Integer'Image(A rem B)); -- Sign matches A
   Put_Line("a**b = " & Integer'Image(A ** B));  

end Integer_Arithmetic;

Version data entries

10 entries across 7 versions & 1 rubygems

Version	Path
zettacode-0.1.7	files.zettacode/arithmetic.integer/ada.txt
zettacode-0.1.6	files.zettacode/arithmetic.integer/ada.txt
zettacode-0.1.6	files.zettacode2/arithmetic.integer/ada.txt
zettacode-0.1.5	files.zettacode/arithmetic.integer/ada.txt
zettacode-0.1.5	files.zettacode2/arithmetic.integer/ada.txt
zettacode-0.1.4	files.zettacode/arithmetic.integer/ada.txt
zettacode-0.1.4	files.zettacode2/arithmetic.integer/ada.txt
zettacode-0.1.3	files.zettacode/arithmetic.integer/ada.txt
zettacode-0.1.2	files.zettacode/arithmetic.integer/ada.txt
zettacode-0.1.1	zettacode.files/arithmetic.integer/ada.txt