Question

Используя оператор выбора, составьте программу, которая по введенному номеру месяца будет выводить название соответствующего времени года (зима, весна, лето, осень).

Answer 1

program Season;
var   Month: Integer;
begin   write('Введите номер месяца (1-12): ');   readln(Month);
  case Month of     1, 2, 12:       writeln('Зима');     3, 4, 5:       writeln('Весна');     6, 7, 8:       writeln('Лето');     9, 10, 11:       writeln('Осень');     else       writeln('Неверный номер месяца');   end;
     readln; end.