with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
-- Inversion position
procedure Ex02a is
Nb, D, U, Nbi : Natural;
begin
-- saisie
Put("Veuillez rentrer un nombre >= 0 et < 100 : ");
Get(Nb);
-- Algo
--- Dizaine : quotient de la division euclidienne de Nb par 10
D := Nb / 10;
--- Unité : reste de la division euclidienne de Nb par 10
U := Nb mod 10;
--- Inversion des dizaines unités
Nbi := U * 10 + D;
-- Affichage
Put("Décimal : "); Put(D, 0);
Put("; Unité : "); Put(U, 0);
Put("; Inversion position : "); Put(Nbi, 0);
end;