%% bisiesto

%% par impar

clearvars;
close all; 
clc;

%% lectura

A = input('ingrese Anho A = ');

%% estructura selectiva anidada con else if

if ( rem(A,100) == 0 ) && ( rem(A,400) == 0 )%inicio if
                                             %usamos dos expresiones
                                             %logicas unidas por
                                             %el operador and &&
    %caso verdadero de la primera condicion
    disp('es bisiesto');

elseif (rem(A,4) == 0 ) && ( rem(A,100) ~= 0 )%volvemos  preguntar  
                                              %si da falso la primera
                                              %condicion
    %caso verdadero de la segunda condicion
    disp('es bisiesto');
    
else
    %caso falso
    disp('no es bisiesto');
    
end;