Дано:
Код:
type месяц = ( янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек );
var k1:1..366; d:1..31; m:месяц;
Найти:
d, m - дату k-го по счету дня невисокосного года (о присвоенных значениях сообщить).
Задачку решил, используя case для вычислений, но беда в том, что использовать его можно только для вывода...
все вычисления должны происходить до него...
Не прошу решить полностью, хотя бы натолкните в какую сторону думать. Буду очень благодарен
