Леонид
6 год назад
Пожалуйста Пожалуйста посчитайте с паскалем! Известны год, номер месяца и день рождения человека, а также год, номер месяца и день сегодняшнего дня. Определите возраст человека (число полных лет). Гарантируется, что человек родился раньше сегодняшнего дня.Требуется вывести одно целое число — возраст человека.Примеры:входные данные....................................... выходные данные2 1 192018 9 2013..........................................................................................9331 12 20011 1 2033........................................................................................31
ОТВЕТЫ
Кондратий
Oct 24, 2020
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.
Введите день, номер месяца и год рождения-> 2 1 1920
Введите какой день, номер месяца и год на данный момент-> 18 9 2013
Количество лет-> 93
Введите день, номер месяца и год рождения-> 31 12 2001
Введите какой день, номер месяца и год на данный момент-> 1 1 2033
Количество лет-> 31
673
Смежные вопросы:
