Начал решать задачу и возник следующий вопрос: как можно введя только нужную дату, определить день недели, приходящийся на этот день месяца и год?
Начало пока такое: (по мере понимания задачи, буду сюда скидывать более полностью решение):
Uses
crt;
Type
NumbDays=1..31;
Month=(January,February,March,April,May,
June,July,August,September,October,
November,December);
DayOfWeek=(Monday,Tuesday,Wednesday,
Thursday,Friday,Saturday,Sunday);
Var
Day: NumbDays;
Mon: Month;
Year: integer;
i,j,k: integer;
Begin
clrscr;
writeln('Enter Day of Month(from 1 to 31): ');
readln(Day);
writeln('Enter Month(from 1 to 12): ');
readln(Mon);
writeln('Enter Year: ');
readln(Year);
{тут будет вычисление происходить нужного дня, но алгоритма решения пока не знаю}
readln;
End.
Я правильно указал типы? Заранее спасибо
Сообщение отредактировано: Relrin -