Написать программу
Используя тип запись и массив
Type data=record
Day:integer;
Mounth: integer;
Year: integer;
End;
Var
A: array[1..100] of data;
В семье Ивановых оба ребенка учатся в школе. Мальчик в 5, а девочка в 1 классе. Родительские собрания 5 класса проводятся по последним пятницам, а 1 класса по последним средам месяца в 18:00. Отец и мать этого семейства ведут свое дело. Отец работает до 20:00 по нечетным дням месяца, а мать до 20:00 по четным дням месяца. В другие дни каждый из родителей заканчивает работу в 17:00. Выведите в файл father.txt даты родительских собраний для отца, а в файл mother.txt для матери на 2015-2016 учебный год с указанием класс который они должны посетить.
Pascal abc
Используя тип запись и массив
Type data=record
Day:integer;
Mounth: integer;
Year: integer;
End;
Var
A: array[1..100] of data;
В семье Ивановых оба ребенка учатся в школе. Мальчик в 5, а девочка в 1 классе. Родительские собрания 5 класса проводятся по последним пятницам, а 1 класса по последним средам месяца в 18:00. Отец и мать этого семейства ведут свое дело. Отец работает до 20:00 по нечетным дням месяца, а мать до 20:00 по четным дням месяца. В другие дни каждый из родителей заканчивает работу в 17:00. Выведите в файл father.txt даты родительских собраний для отца, а в файл mother.txt для матери на 2015-2016 учебный год с указанием класс который они должны посетить.
Pascal abc
More Questions From This User See All
Answers & Comments
Verified answer
В прилагаемом файле приведен пример программы для решения задачи и содержимое полученных файлов. В программе дата последней среды и последней пятницы сентября 2015 г. задается явно, остальные среды и пятницы вычисляются. При желании можно начать вычисления с 1 января, например, или с 1 сентября. Получится немного длиннее.