Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Разработать программу запрашивающую дату рождения пользователя и расчитывающий его возраст

Ответ оставил Гость

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.