Question

Плиз помогите мне нужно ответь
Определить дату и день недели, которые наступят через 500 дней, 50 часов, 50 минут и 50 секунд от следующей даты '05.05.2005 17:05:05'.

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

uses
 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

Answer 2

Мне надо было в паскале это верно и тебе спасибо что хотел помоч

Answer 3

"Спасибо" не мне, а модератору. Я забыл важную деталь.

Answer 4

Исправлено.

Answer 5

Да, только задавать d:=d.AddYears(2004); d:=d.AddMonths(4); d:=d.AddDays(4); не совсем очевидно при дате 05.05.2005. Может, какой-то более понятный вариант найти... ну, там с отрицательными числами...

Answer 6

Либо хотя бы комментарий дать в теле программы. Эти же все будут отрезаны потом.

Answer 7

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
uses System;
begin
  var d:=DateTime.Parse('05.05.2005 17:05:05');
  Writeln('Исходная дата: ',d);
  d:=d.AddDays(500).AddHours(50).AddMinutes(50).AddSeconds(50);
  Writeln('Полученная дата: ',d,' ',d.DayOfWeek);
end.

Результат
Исходная дата: 05.05.2005 17:05:05
Полученная дата: 19.09.2006 19:55:55 Tuesday

Answer 8

Спасибо огромное вам

Answer 9

Пожалуйста. У нас для "спасибо" есть специальная кнопочка, чтобы не писать комментарии, которые потом приходится удалять))))