%%prog12042023 año bisiesto
%un año es bisiesto si se cumplen las siguientes condiciones:
% - es divisible entre 4 y no entre 100
% - es divisible entre 400

clearvars;
clear all;
close all;
clc;

%lectura de datos
anho = input("ingrese año para calcular si es bisiesto o no: ");

%calculamos si es divisible por los numeros especificados
logica1 = rem(anho,4) == 0;
logica2 = rem(anho,100) ~= 0;
logica3 = rem(anho,400) == 0;

%revisamos si el número cumple con las condiciones
if ((logica1 && logica2) || logica3)
  disp("el año ingresado es bisiesto")
else
  disp("el año ingresado no es bisiesto")
endif


%% simplificamos las condiciones almancenando las logicas en variables
condicion1 = logica1 && logica2;
condicion2 = logica3;

if (condicion1 || condicion2)
  disp("el año ingresado es bisiesto")
else
  disp("el año ingresado no es bisiesto")
endif

%vamos a escribir todas las condiciones y divisiones dentro del if
if ((rem(anho,4) == 0 && rem(anho,100) ~= 0) || rem(anho,400) == 0)
  disp("el año ingresado es bisiesto")
else
  disp("el año ingresado no es bisiesto")
endif