Submission #55411063

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Characters.Latin_1;
procedure Main is
   A, B, C : Integer;
   S : Character;
begin
   Ada.Integer_Text_IO.Get(A);
   Ada.Integer_Text_IO.Get(B);
   Ada.Integer_Text_IO.Get(C);
   Ada.Integer_Text_IO.Put(A + B + C, 0);
   Ada.Text_IO.Put(" ");
   Ada.Text_IO.Get(S);
   while S /= Ada.Characters.Latin_1.LF loop
      Ada.Text_IO.Put(S);
      Ada.Text_IO.Get_Immediate(S);
   end loop;
   Ada.Text_IO.New_Line;
end Main;
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Characters.Latin_1;

procedure Main is
   A, B, C : Integer;
   S : Character;
begin
   Ada.Integer_Text_IO.Get(A);
   Ada.Integer_Text_IO.Get(B);
   Ada.Integer_Text_IO.Get(C);
   Ada.Integer_Text_IO.Put(A + B + C, 0);
   Ada.Text_IO.Put(" ");
   Ada.Text_IO.Get(S);
   while S /= Ada.Characters.Latin_1.LF loop
      Ada.Text_IO.Put(S);
      Ada.Text_IO.Get_Immediate(S);
   end loop;
   Ada.Text_IO.New_Line;
end Main;

Submission Info

Compile Error

x86_64-linux-gnu-gcc-12 -c -O2 Main.adb
Main.adb:3:11: warning: file name does not match unit name, should be "main.adb" [enabled by default]
x86_64-linux-gnu-gnatbind-12 -x Main.ali
x86_64-linux-gnu-gnatlink-12 Main.ali -O2 -o a.out

Judge Result