Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь – 1 и т.д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.
Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь – 1 и т.д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program AgeCalculator;
var
birthYear, birthMonth, currentYear, currentMonth, age: integer;
begin
writeln('Enter the year of birth: ');
readln(birthYear);
writeln('Enter the month of birth: ');
readln(birthMonth);
writeln('Enter the current year: ');
readln(currentYear);
writeln('Enter the current month: ');
readln(currentMonth);
age := currentYear - birthYear;
if (currentMonth < birthMonth) then
age := age - 1;
writeln('The person is ', age, ' years old.');
end.