простецкая задача, а решить не решу ..) Опции

[__V]

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

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

Сообщение отредактировано: __V - 4.02.2012 15:36

[Федосеев Павел]

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

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

Сообщение отредактировано: Федосеев Павел - 4.02.2012 23:37