SoloCodigo

• Información del Perfil
  • Resumen
  • Mostrar Estadísticas
  • Mostrar Mensajes...
    • Mensajes
    • Temas
    • Adjuntos

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

1

Pascal / Re: Años Bisiestos (#4).

« en: Lunes 30 de Mayo de 2005, 18:24 »

Yo tengo una mas corta todavia!!!

function Bisiesto(Anio: Integer): Boolean;
begin
 Bisiesto:= (Anio mod 4 = 0)
end;

Todos los años multiplos de 4 del año 2000 seran bisiestos!!! jejeje