with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
-- Affichage d'un nombre en binaire (!! nombre binaire écrit à l'envers !!)
procedure Ex03b is
Nb : Natural;
begin
-- Saisie
Put("Veuillez rentrer un nombre > 0 : ");
Get(Nb);
-- Affichage
Put("Base2 écrit à l'envers de "); Put(Nb, 0); Put(" = ");
-- Algo + Affichage
while Nb > 0 loop
Put(Nb mod 2, 1);
Nb := Nb / 2;
end loop;
end;