Estación+del+año

=__**Estación del año al que corresponde un mes**__= > Programa que solicita la introducción del ordinal de un mes, y después imprime en pantalla **la estación del año del ultimo día de ese mes**

code format="pascal" PROGRAM Mes_Estacion ; VAR iMes : Integer ; BEGIN Write ('Escribe el ordinal de un mes: ') ; ReadLn (iMes) ;

CASE iMes OF   12, 1, 2 : WriteLn ('El ultimo dia de ese mes es invierno') ; 3 .. 5  : WriteLn ('El ultimo dia de ese mes es primavera') ; 6 .. 8  : WriteLn ('El ultimo dia de ese mes es verano') ; 9 .. 11 : WriteLn ('El ultimo dia de ese mes es otoño') ; ELSE WriteLn ('Ese ordinal no corresponde a ningún mes') ; WriteLn ('La próxima vez escribe un valor desde 1 hasta 12') END ; END. { FIN DE MES_EST.PAS } code

Programa que solicite la introducción del ordinal de un mes, y después imprime en pantalla **la estación del año a la que corresponde dicho mes** code format="pascal" PROGRAM Mes_Estacion ; VAR iMes : Integer ; BEGIN Write ('Escribe el ordinal de un mes: ') ; ReadLn (iMes) ;

CASE iMes OF    12  : WriteLn ('Es un mes de otoño y de invierno') ; 1, 2: WriteLn ('Es un mes de invierno') ; 3  : WriteLn ('Es un mes de invierno y de primavera'); 4, 5: WriteLn ('Es un mes de primavera') ; 6  : WriteLn ('Es un mes de primavera y de verano'); 7, 8: WriteLn ('Es un mes de verano') ; 9  : WriteLn ('Es un mes de verano y de otoño') ; 10, 11: WriteLn ('Es un mes de otoño') ; ELSE WriteLn ('Ese ordinal no corresponde a ningún mes') ; WriteLn ('La próxima vez escribe un valor desde 1 hasta 12') ; END ; END. { FIN DE MES_EST.PAS } code