modular_mod_arthimetic.adb.npp

来自「This contains the following topics and m」· NPP 代码 · 共 12 行

with Text_IO; use Text_IO;
with Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
with Ada.float_Text_IO;use Ada.float_Text_IO;
procedure modular_mod_arthimetic is
   type byte is mod 256;
   count : byte := 255;
begin
   count := count + 1;
   New_Line;
  put(byte'image(count));
  end modular_mod_arthimetic;