Вопрос по информатике:
Разработать программу запрашивающую дату рождения пользователя и расчитывающий его возраст
- 03.11.2017 10:32
- Информатика
- remove_red_eye 1896
- thumb_up 30
Ответы и объяснения 1
Uses system;
var d1: DateTime;
day,mounth,year:integer;
begin
d1 := DateTime.Now;
Writeln('Today:',d1.Day, '.', d1.Month, '.', d1.Year);
Writeln('Day:');
readln(day);
Writeln('Mounth:');
readln(mounth);
Writeln('Year:');
readln(year);
d1:=d1.AddDays(-day);
d1:=d1.AddMonths(-mounth);
d1:=d1.AddYears(-year);
writeln(d1.Day,'.',d1.Month,'.',d1.Year);
end.
- 04.11.2017 01:02
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.