Algoritmia - Sistema Binario

program DecimalABinario;

var

  numeroDecimal, cociente, residuo: integer;

  binario: string;

begin

  // Paso 1: Leer el número decimal introducido por el usuario

  writeln('Introduce el número decimal a convertir a binario:');

  readln(numeroDecimal);

  // Inicializar el cociente como el número decimal y la cadena binaria como vacía

  cociente := numeroDecimal;

  binario := '';

  // Paso 2: Realizar divisiones sucesivas por 2 y registrar los residuos

  repeat

    residuo := cociente mod 2; // Obtener el residuo de la división por 2

    cociente := cociente div 2; // Actualizar el cociente dividiendo por 2

    // Agregar el residuo a la cadena binaria (convertirlo a carácter)

    binario := Chr(residuo + Ord('0')) + binario;

  until cociente = 0;

  // Paso 3: Imprimir el número binario

  writeln('El número binario equivalente es: ', binario);

end.