Question

Пожалуйста помогите с паскалем!

Известны год, номер месяца и день рождения человека, а также год, номер месяца и день сегодняшнего дня. Определите возраст человека (число полных лет). Гарантируется, что человек родился раньше сегодняшнего дня.

Требуется вывести одно целое число — возраст человека.

Примеры:

входные данные....................................... выходные данные
2 1 1920
18 9 2013
..........................................................................................93
31 12 2001
1 1 2033
........................................................................................31

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var (dr,mr,gr):=ReadInteger3('Введите день, номер месяца и год рождения->');
  var (ds,ms,gs):=ReadInteger3('Введите какой день, номер месяца и год на данный момент->');
  var kol:=gs-gr;
  if ((ms<mr) and (ds<dr)) or ((ms=mr) and (ds<dr)) then dec(kol);
  Println('Количество лет->',kol);
end.

Пример(1):
Введите день, номер месяца и год рождения-> 2 1 1920
Введите какой день, номер месяца и год на данный момент-> 18 9 2013
Количество лет-> 93 


Пример(2):
Введите день, номер месяца и год рождения-> 31 12 2001
Введите какой день, номер месяца и год на данный момент-> 1 1 2033
Количество лет-> 31