Пожалуйста помогите с паскалем!
Известны год, номер месяца и день рождения человека, а также год, номер месяца и день сегодняшнего дня. Определите возраст человека (число полных лет). Гарантируется, что человек родился раньше сегодняшнего дня.
Требуется вывести одно целое число — возраст человека.
Примеры:
входные данные....................................... выходные данные
2 1 1920
18 9 2013
..........................................................................................93
31 12 2001
1 1 2033
........................................................................................31
Ответы
Ответ дал:
0
// 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
// 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
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад