%% bisiesto

%% par impar

clearvars;
close all; 
clc;

%% lectura

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

%% estructura selectiva de una
if ( (rem(A,4)==0)&&(rem(A,100)~=0) ) || (rem(A,400)==0)
    disp('es bisiesto');
else
    disp('no es bisiesto');
end;