%% programa anho bisisesto 3
clearvars;
close all;
clc;

%este programa calcula si un a?o es bisiesto
%en esta version la mas simple se considera 
%que sera a?o bisiesto si es divisible por 4 y no es divisible por 100 y si
%es divisible po4 400
%aumentamos la dificultad

%% lectura
anho = input('ingrese el anho = ');

%% estructura selectiva 

%usaremos la funcion rem(numero1,numero2) que calcula el resto de la
%division entera entre numero1 y numero2

%usaremos variables auxiliares para entender el proceso
resto1 = rem(anho,4);           %resto de la division entera
logi1 = rem(anho,4) == 0;       %verifica si es verdad o falso

resto2 = rem(anho,100);         %resto de la division entera
logi2 = rem(anho,100) ~= 0;     %verifica si es verdad o falso

resto3 = rem(anho,400);         %resto de la division entera
logi3 = rem(anho,400) == 0;     %verifica si es verdad o falso

if ( rem(anho,4) == 0 && rem(anho,100) ~= 0 ) || rem(anho,400) == 0
    disp('es bisiesto');
else
    disp('no es bisiesto');
end;