Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  MESES
Language: PASCAL
Code:
program meses;
USES CRT;
var
  Mes : Integer;
begin
  writeln('Numero del mes:'); Readln (mes);
  Case mes of
  1: write ('Enero : 31 dias');
  2: write ('Febrero: 28 dias');
  3: write ('Marzo: 31 dias');
  4: write ('Abril: 30 dias');
  5: write ('Mayo: 31 dias');
  6: write ('Junio: 30 dias');
  7: write ('Julio: 31 dias');
  8: write ('Agosto: 31 dias');
  9; write ('Septiembre: 30 dias');
  10: write ('Octubre: 31 dias');
  11: write ('Noviembre: 30 dias');
  12: write ('Diciembre: 31 dias');
end.
End          
          
          
          
Comments: