% Programa para calcular el dígito de control del código de barras
% ================================================================

% Borramos pantalla y memoria:
clc;
clear all;

% Pedimos los 12 dígitos del código:
digitos=input('Dime los 12 dígitos del código de barras: ');

% Los convertimos en un vector de caracteres:
bc=num2str(digitos);

% Sumamos los dígitos de las posiciones pares e impares:
sumaImpares=str2num(bc(1))+ str2num(bc(3)) + str2num(bc(5)) + ...
    + str2num(bc(7)) +str2num(bc(9)) +str2num(bc(11));

sumaPares=str2num(bc(2))+ str2num(bc(4)) + str2num(bc(6)) + ...
    + str2num(bc(8)) +str2num(bc(10)) +str2num(bc(12));

sumaTotal=sumaImpares + 3*sumaPares;

%  El dígito de control se calcula como 10 menos el resto de dividir la 
% suma anterior entre 10:

digControl=10-rem(sumaTotal,10);

% Mostramos el resultado
disp("El dígito de control es el " + num2str(digControl));
