%% prog004 bisiesto

clearvars;
close all;
clc;

%este programa usa variables y operadores logicos
%un anho bisiesto tienen 366 y ocurre cuando estas condiciones se cumplen
%el numero del aņo SI debe ser divisible por 4
%el numero del aņo NO debe ser divisible por 100
%el numero del aņo SI debe ser divisible por 400

%ademas usaremos el comando rem(numero1,numero2) 
%este comando determina el resto de la division entera entre numero 1 y numero 2

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

%% procesamiento
logi01 = rem(anho,4)   == 0;
logi02 = rem(anho,100) ~= 0;
logi03 = rem(anho,400) == 0;

resultado = (logi01 && logi02) || logi03;

%% resultador
disp(' ');
disp('si es aņo si es bisiesto resultado = 1');
disp('si es aņo no es bisiesto resultado = 0');
disp(resultado);