fork download
copy 
  1. With Ada.Text_IO; Use Ada.Text_IO;  
  2. With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
  3.  
  4. procedure test is
  5. 	subtype Byte is integer range 0..255;
  6. 	a,b : Byte;
  7. 	c: constant float := 1.0;
  8. begin
  9. 	get(a); get(b);
  10. 	put_line(Float'Image(c + float(a+b)));
  11. end test;
Success #stdin #stdout 0s 4296KB
comments (?)
stdin
copy 
100 200
stdout
copy 
 3.01000E+02
https://ideone.com/SzLWg1
language:
Ada95 (gnat 8.3)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!