Pascal/Turbo Pascal - bisiesto

 
Vista:

bisiesto

Publicado por byron (14 intervenciones) el 15/03/2007 16:43:06
como hacer un programa que me diga si un año es bisiesto,
los años bisiestos son los que son multiplos de 4 y 400
pero no se como hacer la comparacion.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:bisiesto

Publicado por Carlos Guimaraenz (265 intervenciones) el 15/03/2007 17:37:56
Hola Byron!
{es biciesto si es divisible por 400, o bien divisible por 4 pero no por 100}
biciesto:=(ano mod 400 = 0) or ((ano mod 4 = 0) and (ano mod 100 <> 0));

Un abrazo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:bisiesto

Publicado por byron (14 intervenciones) el 15/03/2007 23:29:33
gracias calos t lo agradesco mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar