задача день программиста

[tata7393]

помогите пожалуйста!!!!!на языке паскаль
задача День программиста.
условие: в одной школе решили провести олимпиаду по информатике в день программиста который отмечается на 256-й день года (в не високосный год 13 сентября, в високосный - 12 сентября). организационному комитету олимпиады требуется знать, сколько дней осталось до ближайшего Дня программиста. напишите программу, которая по введенной дате определяет, сколько дней осталось до дня проведения олимпиады.
Формат входных данных
Входной файл содержит дату в формате дд мм гггг(начиная с 01 01 1900)
Формат выходных данных
выходной файл должен содержать одно целое число - количество дней до ближайшего Дня программиста.
пример входного файла: 01 01 1994
пример выходного файла: 255

[Abstraction]

Количество дней в месяце: известно.
Процедура определения, является ли год високосным: элементарна.
Процедура вычисления номера заданного числа в году: следует из вышеуказанного.
Окончательное построение ответа: при номере текущего дня менее 256 - 256-n, больше - 256+(число дней в текущем году-n).

[studen]

В делфи есть тип TDate. С его использованием задача сводится к элементарной. Погугли TDate или в хелпе поищи, задачу облегчит

[Serge_Bliznykov]

studen, всё зависит от того, допускается ли использование типов (и методов работы с этими типами, конечно) языка Delphi.
Если брать чистый Паскаль, то решать нужно только с помощью вычислений (смотри пост #2 (c) Abstraction)
если же можно использовать TDateTime (и DateUtils), то, конечно, задача резко упрощается.

К слову, подобные задачи уже решались на форуме и готовое решение можно поискать.

[tata7393]

спасибо большое за советы)))