Используя тип запись и массив
Добавлено: 21 янв 2016, 20:07
Используя тип запись и массив
Type data=record
Day:integer;
Mounth: integer;
Year: integer;
End;
Еженедельная телевизионная программа проходила с первой субботы сентября до 31 декабря 2015 года. Повтор этой программы проходил в следующий за субботой понедельник. Выведите все субботнего показа в файл first.txt, а даты повторов в файл second.txt. Выведите на экран номера месяцев, в которых больше первых показов, чем повторных. Если таких случаев нет, то на экран выведите 0.
Type data=record
Day:integer;
Mounth: integer;
Year: integer;
End;
Еженедельная телевизионная программа проходила с первой субботы сентября до 31 декабря 2015 года. Повтор этой программы проходил в следующий за субботой понедельник. Выведите все субботнего показа в файл first.txt, а даты повторов в файл second.txt. Выведите на экран номера месяцев, в которых больше первых показов, чем повторных. Если таких случаев нет, то на экран выведите 0.