martes, 3 de junio de 2014

Proceso para saber si 5 años ingresados son bisiestos.

Proceso bisiesto
definir a como entero;
definir b como entero;
dimension b(5);
Para a<-0 Hasta 4 Con Paso 1 Hacer
escribir "ingrese año", a+1;
leer b(a);
FinPara
Si b(0)%4=0 Entonces
escribir "el año", b(0),"es bisiesto";
Sino
escribir "el año", b(0), "no es bisiesto";
FinSi
Si b(1)%4=0 Entonces
escribir "el año", b(1), "es bisiesto";
Sino
escribir "el año", b(1), "no es bisiesto";
FinSi
Si b(2)%4=0 Entonces
escribir "el año", b(2), "es bisiesto";
Sino
escribir "el año", b(2), "no es bisiesto";
FinSi
Si b(3)%4=0 Entonces
escribir "el año", b(3), "es bisiesto";
Sino
escribir "el año", b(3), "no es bisiesto";
FinSi
Si b(4)%4=0 Entonces
escribir "el año", b(4), "es bisiesto";
Sino
escribir "el año", b(4), "no es bisiesto";
FinSi
FinProceso

No hay comentarios:

Publicar un comentario