Question

How to print the season name of the year based on the month number in Pascal

Answer 1

program SeasonPrinter;

procedure PrintSeason(month: integer);
begin
  case month of
    12, 1, 2: writeln('Winter');
    3, 4, 5: writeln('Spring');
    6, 7, 8: writeln('Summer');
    9, 10, 11: writeln('Autumn');
  else
    writeln('Invalid month number!');
  end;
end;

var
  month: integer;

begin
  month := 9;

  PrintSeason(month);
end.



(*
run:

Autumn

*)

 

70+ SQL courses for beginners and professionals