Нужно составить программу, которая сможет вывести число, месяц и день недели, которые...

Question

Нужно составить программу, которая сможет вывести число, месяц и день недели, которые наступят через K дней, начиная с первого января 2008 года. Напомним, что это был вторник.

Язык : Паскаль.

Целое число K (0 <= K <= 1000)<br> Пример:
-------------------------------------------------------------------------------------
Входа: | Выхода:
0 | Tuesday, 01.01
5 | Sunday, 06.01
------------------------------------------------------------------------------------

Comments

Високосные года учитываются?

---

Да.

---

Основная проблема этой задачи- это нули перед числами) Могу сбросить готовый вариант без нулей.

---

Окей, формат вывода мне не так важен, как сам принцип решения задачи. С нулями сама уже разберусь. с:

Answer 1

// Я очень, невероятно не люблю изобретать велосипеды
//Поэтому воспользуемся уже встроенным типом DataTime
//Pascal ABC.NET Версия 2.2 Сборка 790
uses system;
var k:integer;
startSys:DateTime; //сабж
m,d:string;
begin;
readln(k);
startSys:=startSys.AddYears(2007); //добавляет года к старту, отсчёт от 1
startSys:=startSys.AddDays(k); //добавляет кол-во дней
//тип сам определяет високосный год или нет
writeln(startSys.DayOfWeek,', ',startSys.Day,'.',startSys.Month); //вывод
end.

Comments

Спасибо.. Мне надо было уточнить, что надо использовать старенький паскаль, не .нет

---

Не понимаю всех этих функций

---

Вы о free? В нём тоже есть подобный тип - TDateTime

---

Я знаю лишь pascal ABC, который, как стало известно, закрыли в 2007

---

Так это он и есть, хех.

---

Прошу прощения, .NET

---

ну так, а я о стандартном

---

Ладно, во всем виновата моя неосведомленность. Спасибо. Удачи.