Question

Напишите программу, которая вводит номер месяца и выводит название времени года. Оператор выбора использовать не разрешается. При вводе неверного номера месяца должно быть выведено сообщение об ошибке.

Программа Паскаль

Помогите пожалуйста. Заранее СПАСИБО

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var m := Arr('Зима', 'Зима', 'Весна', 'Весна', 'Весна', 'Лето',

     'Лето', 'Лето', 'Осень', 'Осень', 'Осень', 'Зима');

 var k := ReadInteger('Введите номер месяца:') - 1;

 if k.InRange(0, 11) then Println(m[k])

 else Println('Недопустимый номер месяца')

end.

Введите номер месяца: 11

Осень