Даны две тройки чисел a,b,c и x,y,z. (число, месяц, год). Определить количество полных лет, прошедших между этими датами.

помогите, пожалуйста

Если сравнивать напрямую даты,то долго и нудно проверять все условия, начиная с годов,вы начните, покажите свои идеи,а мы поможем.

Можно дату представить в виде одного числа, формируемого примерно так:

VAR
  Date1, Date2 : LongInt;
.............
  Date1:=a+100*b+10000*c;
  Date2:=x+100*y+10000*z;
предоложим, что Date1>=Date2 (ну или проверим if)
  WriteLn('Число полных лет: ', (Date1-Date2):10000);
..............

Прошу прощения, конечно же (Date1-Date2) div 10000

Это не правильное условие проверки. Шаришь почему?

По-правде говоря, не понимаю. Объясни или покажи пример когда это выражение превратится в глупость...

Да, что-то я протупил, прошу прощения

Я например совершенно не понял, откуда ты взял константы 1,100 и 10000. Потом даннное решение, что-то мне подсказывает, совершенно не учитывает тот факт, что в году может быть не только 365 дней.

Автору
Воспользуйся поиском, задача решалась неоднократно.
Задачи связанные с календарем. можеш посмотреть вот это решение.

Константы 1, 100 и 10000 взяты из соображения получить из даты 01 февраля 2012 года число 20120201.

Вне зависимости от числа дней в году от 02 марта 2012 до 01 марта 2013 пройдет менее 1 года (20130301-20120302=9999 < 10000), тоже самое и для пары дат 02 марта 2011 - 01 марта 2012 (20120301-20110302=9999 < 10000).

Конечно, любому нужно ознакомиться с юлианскими датами и получением количества дней между ними (при программировании сенсорных панелей BrainChild эти алгоритмы меня сильно выручили), но эта задача гораздо проще и должна решаться проще. К тому же, знание, что между датами прошло 365 дней - пустое без знания високосности и расположения даты относительно 1 марта.

Dixi

Соглашусь с вами. Мне по крайней пока не удалось придумать входные данные, на которых данное решение выдало бы неверный ответ.