Плиз помогите мне нужно ответь
Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей даты '05.05.2005 17:05:05'.
Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей даты '05.05.2005 17:05:05'.
Answers & Comments
Verified answer
//Pascal ABC.NET 3.1 сборка 1256uses
system;
Var
d:datetime;
begin
{так как изначальное значение переменной d равно 01.01.0001 0:00:00, вычитаем из года, месяца и дня единицу}
d:=d.AddYears(2004).AddMonths(4).AddDays(4).AddSeconds(5).AddMinutes(5).AddHours(17);
d:=d.AddDays(500).AddHours(50).AddMinutes(50).AddSeconds(50);writeln(d,' ',d.DayOfWeek);
end.
Вывод:
19.09.2006 19:55:55 Tuesday