Question

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

Answer 1

Ответ:

var monthNumber := ReadInteger;

begin

 if (monthNumber >= 3) and (monthNumber <= 5) then begin

   Print('Весна');

 end else if (monthNumber >= 6) and (monthNumber <= 8) then begin

   Print('Лето');

 end else if (monthNumber >= 9) and (monthNumber <= 11) then begin

   Print('Весна');

 end else if (monthNumber = 12) or (monthNumber = 1) or (monthNumber = 2) then begin

   Print('Зима');

 end else begin

   Print('Ошибка');

 end

end.