Календарь, задача

[BigBen]

Задание
Если 7-ое число месяца приходится на вторник, то этот день является счастливым.Сколько счасливых дней будет между заданными датами. Нужно написать программу, которая подсчитает количество счастливых дней между начальной и конечной датами. Известно, что начальная дата приходится на понедельник.
Формат входных данных:
Первая строка входного файла содержит начальную дату в следующем формате: dd/mm/yyyy, где dd-день, mm-месяц, уууу-год(01<=dd<=31,01<=mm<=12, 0001<=yyyy<=9999). Год Y является високосным, если Y делится на 4 и не делится на 100, или делится на 400.
Во второй строке задаётся конечная дата в таком же формате. Гарантируется, что начальная дата хронологически меньше конечной даты.

[like-nix]

Функция Си time знает о високосных годах. С помощью этой функции определяем количество дней между датами. вычитаем разницу между начальной датой и первым счастливым днем из количества полученных дней. оставшеиеся дни делим на 7 и прибавляем 1. Все.

[BigBen]

А как она записывается в Паскале?? Мне такого даже близко не объясняли, напишите пожалуйста.

[Serge_Bliznykov]

Известно, что начальная дата приходится на понедельник.

если опираться на это условие (без всяких проверок),
то тогда задача упрощается.

вот пара функций, которые Вам пригодятся в Паскале:

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) and (Year mod 4000 <> 0) and
      ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;
    
  function DaysInMonth(Month, Year : Integer) : Integer;
    {-Return the number of days in the specified month of a given year}
  begin
    if Word(Year) < 100 then begin
      Inc(Year, 1900);
      if Year < Threshold2000 then
        Inc(Year, 100);
    end;

    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 28+Ord(IsLeapYear(Year));
    else
      DaysInMonth := 0;
    end;
  end;

ну дальше просто. вводите начальную дату.
и отсчитваете вторники (учитывая переходы на следующий месяц) пока не превысите конечную дату.
в процессе отсчёта проверяете, если вторник - 7-е число - увеличиваете счётчик.
всё.