Question

ДАЮ 40 БАЛЛОВ ИНФОРМАТИКА (задание на фото)
Составьте программу которая запрашивает номер месяца (целое число от 1 до 12) и и выводит на экран название поры года.

Answer 1

var

 month: integer;

Begin

 Write('Введите номер месяца: ');ReadLn(month);

 

 case month of

   1..2, 12: Write('Зима');

   3..5: Write('Весна');

   6..8: Write('Лето');

   9..11: Write('Осень');

 end;

End.