По номеру месяца определить квартал года - Pascal ABC

Формулировка задачи:

По номеру месяца определить квартал года (первый квартал - январь, февраль, март; второй- апрель, май июнь; третий - июль, август, сентябрь; четвертый - октябрь, ноябрь, декабрь)

Решение задачи: «По номеру месяца определить квартал года»

Листинг программы

const n:array[0..3]of string=('I','II','III','IV');
var x:byte;
begin
 readln(x);
 writeln(n[(x-1) div 3])
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Код выполняет следующую задачу: по номеру месяца определяет квартал года. В начале кода объявляется константа n, которая представляет собой массив из четырех строк ('I','II','III','IV'), соответствующие кварталы года. Затем объявляется переменная x типа byte, которая считывается с помощью функции readln(). Далее выполняется операция деления x на 3, и результат сравнивается с номером месяца. Если номер месяца меньше или равен 3, то выводится соответствующий квартал года из массива n. Таким образом, данный код позволяет определить квартал года по номеру месяца.