По номеру месяца определить квартал года - Pascal ABC
Формулировка задачи:
По номеру месяца определить квартал года (первый квартал - январь, февраль, март; второй- апрель, май июнь; третий - июль, август, сентябрь; четвертый - октябрь, ноябрь, декабрь)
Решение задачи: «По номеру месяца определить квартал года»
textual
Листинг программы
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. Таким образом, данный код позволяет определить квартал года по номеру месяца.